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INTRODUCTION 



PURPOSE OF THE ASSEMBLER 

The assembler translates a source program 
coded in IBM System/360 Disk Operating 
System Assembler Language into a relocatable 
machine language object program. It per- 
forms auxiliary assembler functions design 
nated by the programmer. 

Object programs are produced by the 
assembler in the format required by the 
linkage editor. The linkage editor pro- 
duces core image modules which are execut- 
able under the control of DOS. 

Several output options are available for 
the assembler. The programmer specifies 
the device for the object modules, etc. He 
may request an assembly listing, a cross- 
reference table of symbols as part of the 
listing and the insertion of a special 
source symbol table in the object module to 
facilitate AUTOTEST. See Appendix A for 
details. 

The assembler is a language translator, 
one of the processing programs of the IBM 
System/360 Disk Operating System. It can 
operate on IBM System/360 Models 30, 40, 
50, 65, or 75 with at least 64K storage. 
It requires only the standard instruction 
set. 



SYSTEM AND I/O REQUIREMENTS 

These requirements are divided into three 
categories: internal (or main) storage, 
external storage devices (data sets) , and 
system services. 



Main Storage 

Main storage requirements include the mini- 
mum requirement of the DOS Control Program. 
In addition, at least 45,056 bytes of con- 
tiguous core storage must be available for 
the assembler. Additional core storage 
will be used if available. 



Data Sets 

The required data sets include one (SYSRES) 
containing the operating system components , 
which includes the assembler; three utility 
data sets (SYS001, SYS002, and SYS003) ; one 
input data set (SYSIPT) ; and a data set 
(SYSSLB) containing system macro definitions 
and source coding to be called for through 



COPY assembler instructions. SYSSLB is 
kept on SYSRES. There are three optional 
output data sets as follows : 

1. Print data set (SYSLST) . 

2. Compile and go data set (SYSLNK) . 

3. Punch data set (SYSPCH) . 

See Figure 1. 



SYSRES. This is a Direct Access Storage 
Device (DASD) resident data set which con- 
tains the control program and other opera- 
ting system components. The assembler is 
kept in the Core Image Library on this data 
set. SYSSLB and SYSLNK are also kept on 
SYSRES . 

SYS001, SYS002, SYS003. These three utility 
data sets are used as intermediate external 
storage. Three DASD logical extents, 
three magnetic tape units , or any combina- 
tion of the DASD and tape data sets may be 
used. The use and format of these data 
sets varies from phase to phase. 



(optional) 




45,056 bytes 

minimum 

Contiguous 

Core 

Storage 

(Plus DOS 

Control 

Program) 




SYSLNK 




Either one 
or both 



Figure 1. Assembler Data Sets 
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SYSIPT. This is a DASD, tape, or card 
reader resident data set containing the 
source text to be assembled. The source 
text (also called the text stream) consists 
of control text, programmer macro defini- 
tions, and the main program (also called 
open code) . The format is assumed to be 
80-byte record card images, unblocked. 

SYSSLB . This is a SYSRES resident data 
set containing system macro definitions 
and source text which may be COPYed into 
programmer macro definitions , into the main 
text of the program, or into system macro 
definitions. It consists of blocked com- 
pressed 160-byte records. 

SYSLST. This is a printer, DASD, or mag- 
netic tape resident data set containing 
output text for printing. It consists of 
121-byte unblocked print images. The first 
byte is an ASA control character. 

SYSPCH. This data set contains the output 
text for punching. It may be punch, DASD, 
or magnetic tape resident. It consists of 
unblocked 81-byte card images. The first 
byte is an ASA control character. 

SYSLNK . This is a DASD resident data set 
containing the same output text as SYSPCH, 
but is used as input for the linkage editor. 
It consists of blocked 330-byte records 
with a 2 byte header. 



System Services 

Several system macro instructions are used 
in conjunction with data and storage manipu- 
lations and program control transfers dur- 
ing the seven phases of the assembler. 
These macros are briefly described in 
Appendix C, and detailed information is 
given in the DOS Supervisor and I/O Macros 
publication. 



THEORY OF OPERATION 

The assembler has two major functions: 
macro generation and assembly. See Figure 
2 and Table 1 for a summary of program flow, 
and program organization. 

The generator portion expands macro 
instructions to one-for-one statements and 
performs conditional assembly. Phases 
FO , FCOM, FIN, Fl, F2 , and F3 comprise the 
generator portion. 

The assembly portion converts the oae- 
for-one source statements and expanded 
macro instructions into machine language 



Table 1. Logical Organization of the 
Assembler 



PHASE 


FUNCTION 


FO 


Master Root Segment - utility data set system 

I/O macros 

Macro Generator I/O routines 


FCOM 


Macro Generator Communication area 


FIN 


System I/O macros for SYSIPT and SYSSLB 


Fl 


Program initialization 


F2 


Initial statement scan 

System and programmer macro definition editing 


F3 


Macro instruction generation and merge 
Conditional assembly 


F3E 


Macro generation error bypass 


RTA 


Assembler control table 

System I/O macros for SYSLNK and SYSPCH 

Overflow file I/O routines 


F7 


Address assignment 
Symbol processing 
Literal processing 


Fl 


External Symbol Dictionary output 


F8 


Expression evaluation 

Program output 

Relocation dictionary build 


FPP 


Cross-reference, relocation dictionary, and 
diagnostic processing and output 


ABT 


Assembly error termination 



instructions and constants and produces a 
relocatable object program. These functions 
are performed by Phases RTA, F7, Fl, F8, 
and FPP. (There are no F4 , F5 , or F6 
phases. ) 

There are two other phases . Phase F3E 
is called if an error condition requires 
bypassing macro generation. Phase ABT is 
called if an error condition requires 
termination of the assembly. 



Macro Generation and Conditional Assembly 
Phases 

The macro generation and conditional assem- 
bly portion of the assembler requires two 
passes over the source text. 

The first pass (in Phase F2) scans the 
source text, determines the syntax of each 
statement , and produces edited text records 
suitable for actual macro generation and 
conditional assembly. 

Variable symbols, sequence symbols, one- 
for-one statement names, macro instruction 
names , and symbols appearing in. macro in- 
struction operands in the text stream are 
collected and placed in either a global 



NOTE: Figure 2 does not show all device types allowed 
for each data set. See Figure 1 . 
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Figure 2. Program and I/O Flow (Part 1 of 3) 
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Figure 2. Program and I/O Flow (Part 2 of 3) 
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Figure 2. Program and I/O Flow (Part 3 of 3) 
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dictionary or in one of several local 
dictionaries, depending on the type of the 
symbol and the context. Extraneous infor- 
mation is removed from these dictionaries, 
and subsetted dictionaries are produced 
for the source text, for each system and 
programmer macro used in the source text, 
and for global information. Dictionaries 
and edited text records are briefly des- 
cribed in Dictionaries and Edited Text 
which follows. Complete descriptions are 
in Appendix B. 

The second pass (in Phase F3) performs 
the actual macro generation and conditional 
assembly using the edited source text, 
edited macro definitions, and subsetted 
dictionaries created during the first pass. 
One-for-one edited text is produced for in- 
put to the subsequent assembly phases. 

Phase FO - Master Root Segment 

Master Root Segment . This portion of Phase 
FO contains the system I/O macros (DTFs and 
I/O logic modules) for SYS001, SYS002, and 
SYS003. It also contains linkage to the 
abort phase in case of EOF or data check on 
the utility files. The master root segment 
remains in core for the entire assembly. 

Macro Generator I/O routines. This portion 
of Phase FO contain READ, WRITE, CHECK, NOTE, 
POINT, POINTS, POINTR, and POINT W routines 
for the utility files. They link to the I/O 
logic modules and the DTFs. 



grammer macro definitions, the main pro- 
gram, and system macro definitions. It 
produces edited text for the main program 
and for each macro definition for input to 
Phase F3. Phase F2 creates the global and 
local dictionaries and subsets them for 
Phase F3. Some syntactic errors are 
detected and flagged for subsequent error 
processing. If a macro generation abort 
condition arises, Phase F2 passes control 
to Phase F3E, a substitute version of 
Phase F3. 



Phase F3 (Conditional Assembly and Macro 
Generation) 

Using the edited text and dictionaries 
produced in Phase F2 , Phase F3 generates 
one-for-one edited text statements from the 
macro definitions and performs conditional 
assembly. This output serves as input to 
Phase F7, the first of the assembly phases. 



Assembly Phases 

Phase RTA - Root Segment A 

RTA is the root segment for the assembly 
phases. It contains the Assembler Control 
Table (a common communications area) , the 
DTFs for SYSLNK and SYSPCH, and the IOCS 
logic module for SYSLNK, SYSPCH, and SYSLST. 
RTA also contains a translate table and I/O 
routines to read and write overflow files. 



Phase FCOM (Macro Generator Communication 
Area) 

Phase FCOM contains common constants, a 
translate table, and a communications work 
area for all macro generator phases. 



Phase FIN (SYSIPT and SYSSLB I/O Logic) 

Phase FIN contains the I/O logic modules and 
the DTFs for SYSIPT and SYSSLB. 



Phase Fl (Initialization and Assignment) 

Phase Fl performs the primary initialization 
for the macro generation and assembly 
phases. The operating environment is 
established by opening data sets for 
utility, input, and library functions and 
by initializing dictionaries and common 
areas. 



Phase F2 (Statement Scan) 

Phase F2 scans the text stream for pro- 



Phase F7 (Initial Assembly) 

Phase F7 processes symbols and literals, 
builds the symbol table and the external 
symbol dictionary, and assigns relative 
locations to all statements in the text. 
The symbol table contains the definition 
(name and attributes) of every declared 
symbol and literal. Only one symbol table 
is constructed if the allocated core can 
accommodate the entire table. If necessary, 
the external symbol dictionary, except for 
two segments, will be stored on SYS003 to 
make room in core for the symbol table. If 
there is still not enough core, construction 
of the symbol table is suspended at the over- 
flow point, and all input statements are 
processed with data from the table (when 
applicable). This symbol table is then dis- 
carded and a new symbol table is built with 
symbols and literals that were not included 
in the eliminated table. This procedure is 
repeated as long as overflow conditions 
arise. Each completed symbol table is fully 
utilized and eliminated before the next one 
is built. Expressions appearing in all 



statements which require previous defini- 
tion are evaluated in the process of loca- 
tion assignment, and a table of cross- 
reference entries is built for all symbols 
which are defined and/or referenced. 



Phase FI (Interlude) 

Phase FI writes the external symbol 
dictionary on data sets SYSLST and SYSPCH 
and/or SYSLNK, and constructs the literal 
adjustment table for use in Phase F8. If 
the external symbol dictionary was written 
on SYS003 during Phase F7 because of ex- 
cessive core occupancy by the symbol table, 
the entire external symbol dictionary is 
read back into main storage. 



Phase F8 (Final Assembly) 

Phase F8 completes the symbol processing 
on all operands using the last (or only) 
symbol table created in Phase F7 . USING 
tables and the relocation dictionary are 
built, all address expressions are evalua- 
ted, and the operand addresses are con- 
verted to base-displacement format. Finally, 
the assembled text is written in relocat- 
able object program format on SYSPCH and/or 
SYSLNK and in program listing format on 
SYSLST. 



Phase FPP (Post Processor) 

Phase FPP formats and writes the relocation 
dictionary table. If requested, the cross- 
reference entries are sorted, and the 
cross-reference list is prepared and 
written. Assembly statistics and diagnostic 
messages are also prepared and Written. 
Phase FPP also writes the END card. 



Macro Generator Phases 

The Fl, E2 , and F3 routines link together 
through address constants located in the 
Macro Generator Common Area. They use 
standard DOS/360 linkage conventions. The 
macro generator phases do not have any 
overall register usage conventions. Regis- 
ter usage and linkage are described in the 
comments of each routine listing. 



Assembly Phases 



Program Levels 

In order to establish a uniform method of 
communication and to control flow between 
the phases and phase routines, the assem- 
bler phases are structured on three levels: 

• Level - Phase initialization, storage 

allocation, mainline control, 
phase call, and DOS interface. 

• Level 1 - Functional routines. 

• Level 2 - Common subroutines and common 

tables . 

Functional routines are assembled as 
independent control sections with a single 
entry point and a return to mainline con- 
trol. Functional routines do not call 
other level 1 routines. Any communication 
required between functional routines is 
through mainline control and the common 
table area. 

Common subroutines are also assembled as 
independent control sections. 



ASSEMBLER PHYSICAL ORGANIZATION 

The assembler is organized as Core Image 
Library phases and as Relocatable Library 
load modules. This organization — includ- 
ing overlay structure, typical load addres- 
ses, and external symbols — is illustrated 
by the Linkage Editor map in Appendix D. 
This map also correlates the logical organ- 
ization of the assembler, described in 
this manual, with its physical organization. 
For more information on assembler organiza- 
tion, see IBM System/360 DOS System Genera - 
tion and Maintenance (Form C24-5033) . 



Assembler Control Table 

Linkage between mainline control, function- 
al routine, common subroutines, and common 
tables is accomplished through the use of 
the Assembler Control Table. The location 
of the Assembler Control Table is always 
available to all levels of routines and sub- 
routines through the general purpose regis- 
ter ACT. 

The Assembler Control Table is divided 
into five parts : 

1. Mainline control/ functional routine 
linkage/return algorithms 
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2. Functional routine pointers 

3. Common subroutine pointers 

4. Common table pointers 

5. Switches 



Each of these five sections is in a fix- 
ed location with respect to the ACT pointer, 
and each element in a given section is in a 
fixed location with respect to the start of 
that section. A central dimensioning deck 
of EQU cards is used by each control sec- 
tion to symbolically reference the Assembler 
Control Table. 



General Register Assignments 

General registers 3-15 are referenced sym- 
bolically by all assembler subprograms. 
The equate cards are described in Table 2 
and in the paragraphs below. They are in- 
cluded in all Control section decks to pro- 
vide the initial assignments for general 
register symbols. 

ACT (Assembler Control Table) Pointer . This 
general register contains the absolute 
starting location for the Assembler Control 
Table. This register is set by the control 
routine during phase initialization and re- 
mains set for the duration of the phase. 
ACT should be considered as a read-only 
register for the use of all routines and 
subroutines and as a base register for 
Assembler Control Table references. 

FRB (Functional Routine Base Register) . 
This general register contains the base ad- 
dress for the current functional routine. 
FRB is set by the control routine and is 
used to link with functional routines. The 
USING statement for each functional routine 
uses FRB as the second operand and the name 
of the functional routine's entry point as 
the first operand. 

FRB should not be used by common sub- 
routines or by functional routines other 
than in their USING statements. Functional 
routines do not link directly with other 
functional routines. Therefore, FRB re- 
mains intact during the operation of a 
functional routine. 

SRB* (Subroutine Base Address) . This gen- 
eral register contains the base address 
for the current common subroutine. SRB is 
set by the calling routine and is used to 
link with common subroutines. The USING 
statement for each common subroutine uses 
SRB as the second operand and the name of 
the subroutine's entry point as the first 
operand. 



SRR* (Subroutine Return Address) . This 
general register contains the address 
through which the current common subroutine 
returns to the calling routine. SRR is 
set by the calling routine with a BALR 
SRR, SRB. 



SP1*, SP2* (Subroutine Parameters) . These 
general registers are used to transfer 
parameter (s) between the calling routine 
and the called subroutine. SP1 and SP2 
are two contiguous registers beginning 
with an even register. If a parameter list 
exceeds the combined length of SP1 and SP2 , 
SP1 is used as a pointer to the parameter 
list storage location. 

GRX, GRY, GRZ (General Purpose Registers) . 
There are no restrictions on the use of 
these general registers. They may be used 
by any level routine and are not saved/ 
restored by called subroutines and opera- 
ting system functions . 

GRA, GRB, GRC, GRD (Functional Routine 
General Purpose Registers) . These are four 
contiguous registers beginning with an even 
numbered register. Some subroutines could 
use these registers and restore them to their 
original value before returning to the cal- 
ling routine. The control routine is 
required to save and restore these registers 
for its own use when transferring control 
to a functional routine. 

Linkage Conventions 

All assembly phases routines link through 
the Assembler Control Table using standard 
DOS/360 linkage conventions. The exact 
linkage and the entry and exit points for 
each routine are in the routine listing 
comments . 



DICTIONARIES AND TABLES 

The assembler builds dictionaries and tables 
for its own use. Special facilities are 
used to enter new records and to access 
already stored records for adding or re- 
trieving data in these designated areas. 



*SRB, SRR, SP1, and SP2 may be used as gen- 
eral purpose registers by level and level 
1 routines if care is taken not to conflict 
with subroutine calls. If a subroutine 
calls another subroutine, it is the respon- 
sibility of the first subroutine to restore 
SRB and SRR. 



Table 2 


General Register Assignments 




Symbol 


Tentative 
EQU 


Purpose 


Restrictions 


Remarks 


GRO 
GR1, 
GR2 


Absolute 




None 




ACT 


3 


Assembler control 
table pointer 


Read only register 




SRB 


8 


Common subroutine 
base register 


Set by calling routine. Used by S/R in 
USING statement 


Four contiguous regis- 
ters beginning with an 
even register 


SRR 


9 


Common subroutine 
return register 


Set by calling routine with BALR, SRR, 
SRB 


SP1 


10 


Common subroutine 
parameter 1 


Used to transfer parameters between calling 
routine and common subroutines 


SP2 


11 


Common subroutine 
parameter 2 


GRX 


14 


General purpose 
registers X, Y, and 
Z, respectively 


No restrictions. 
Completely volatile. 


GRX and GRY are 
two contiguous registers 
beginning with an even 
register. GRZ is un- 
predictable. 


GRY 


15 


GRZ 


13 


GRA 


4 


General purpose 
register A, B, C, and 
D, respectively 


Used by functional routines. Cannot be 
changed by common subroutines. 


Four contiguous registers 
beginning with an even 
register 


GRB 


5 


GRC 


6 


GRD 


7 


FRB 


12 


Functional routine 
base register 


Set by control routine. Used by functional 
routines in USING statement. 




CRB* 


GRC 


Control routine base 
register 


Saved/restored by control routine when 
control is passed to functional routine 

- 


(Sample applications) 


CRR* 


GRD 


Control routine 
return address 



*CRB and CRR are applications of the usage of general purpose registers for specific assignments. 



Hash tables, hashing algorithm, and chaining 
are the tools employed to accomplish the re- 
quired data manipulations in the Macro Gen- 
erator dictionaries and the Symbol Table. 

The assembler builds other dictionaries 
and tables in which the entries are not 
hashed and chained together. These are the 
External Symbol Dictionary, the Relocation 
Dictionary, the Cross Reference Dictionary, 
the Literal Base Table, and the Literal 
Adjustment Table. Their entries are stored, 
read, and written contiguously. 



See Appendix D for a complete discussion 
of dictionary construction methods and 
Appendix B for a description of dictionary 
and table formats . 



Macro Generator Dictionaries 



The macro generator phases use two types of 
dictionaries: a global (permanent) diction- 
ary and a local (transient) dictionary. 
See Figure 3. 
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Global Dictionary 



Machine operation codes 
Assembler operation codes 

Macro names- (NOTE/r'OINTs) 

Global SET symbols 



Local Dictionary 



Sequence symbols *■ — 
Ordinary symbols 
Local SET symbols 
Symbolic parameters 



-(NOTE/POINTs) 



Figure 3. Dictionary Structure 



There is only one global dictionary. It 
is core resident, and it contains all 
machine and assembler operation codes, all 
macro names, and all global SET variables. 

There are many local dictionaries, one 
for each macro definition and one for open 
code (main text) . The local dictionaries 
contain sequence symbols, ordinary symbols, 
local SET symbols , and macro instruction 
parameters. Local dictionaries contain 
items needed for insertion into edited text 
and for macro generation during Phase F3 , 
and can overflow onto a utility data set 
during construction. 

Each macro local dictionary is subsetted 
at the end of the processing of the macro 
definition (Phase F2) . The subsetted dic- 
tionary is written on the SYS002 immediately 
following the edited text format of the 
macro definition. 

The global and the open code local dic- 
tionaries are subsetted at the end of Phase 
F2 . Subsetting sorts the dictionaries on 
the "a" pointer and removes flag bytes, 
symbolic names, big "A" pointers, and little 
"a" pointers. The global and main text 
local dictionaries are placed in core and 
remain there throughout Phase F3. 



Symbol Table 

The symbol table is a collection of the 
attributes of symbols and literals. It is 
actually composed of two tables, one for 
symbols and one for literals; however, the 
same physical storage area is used for both 
and the two different types of entries are 
intermingled in storage. 



The symbol table is a compact means to 
rapidly obtain the attributes of a given 
symbol or literal. The techniques used to 
store and retrieve symbol table information 
are hashing and chaining. 

The symbol table is in core during 
Phases F7 , FI, and F8. It consists of the 
symbol table proper and two hash tables , one 
for symbols and one for literals . The 
external symbol dictionary occupies the 
high-numbered portion of the alloted storage, 
but is output on SYS003 if the space is 
needed by the symbol table. 



INTERMEDIATE TEXT RECORDS 

The assembler creates several types of 
intermediate text records from text stream 
statements (SYSIPT) and from macro defini- 
tion and COPY code statements (SYSSLB) . 
These records are of three basic categories: 

• Source records 

• Edited text (logical) records 

• Error records 

The record formats are briefly described in 
the following paragraphs. See Appendix B 
for a complete description of them. 

Source Record 

Source records of statements from SYSIPT 
are carried from phase to phase without 
change. They are listed by Phase F8. No 
source records exist for macro definition 
statements and COPY code (from SYSSLB) until 
F8. Then, if the PRINT GEN option is on, 
they are generated from the edited text 
records . 

Edited Text Records 

Edited text records consist of the source 
Statement fields to which work and code 
areas have been appended to map and describe 
the attributes of the fields. These records 
are created during the initial scan of the 
source text (in Phase F2) . The edited text 
records are modified during Phase F7 and are 
converted to object code by Phase F8. 
During processing, the edited text record 
for each statement is written on the 
utility data sets immediately following the 
source record for that statement. 
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Error Records following the edited text record of the 

statement for which the error is detected. 
Up to 16 errors can be detected for each 

Errors are detected by Phases F2, F3, F7, statement. Error records are processed by 

and F8. A record for each error is written Phase FPP. 
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PHASE Fl - INITIALIZATION AND ASSIGNMENT 



OVERALL OPERATION (FLOWCHART 2) 

Phase Fl initializes the assembler. Fl 
tests for a valid I/O configuration. If 
the configuration is not valid, it fetches 
the abort phase. It allocates core for 
the dictionaries and determines an optimum 
buffer size. Phase Fl generates a hash 
table and associated global dictionary. 
Machine operation codes and assembler oper- 
ation codes are inserted into the global 
dictionary at this time. The first five 



data sets, SYSIPT, SYSSLB, SYS001, SYS002, 
and SYS003, are opened. The assignments of 
the three utility data sets within the 
assembler are determined by means of the 
ASSGN commands and job control statements. 
(See IBM System/360 DOS, System Control and 
System Services Programs ) . 

Phase Fl reads the first card and, if it 
is not an ICTL card, branches to Phase F2 . 
If the first card is an ICTL card, it is 
processed. Another card is read, and Fl 
then branches to F2 . 



12 



PHASE F2 - STATEMENT SCAN 



OVERALL OPERATION (FLOWCHARTS 3-7) 

This phase reads the input from. SYSIPT and 
performs a syntactical scan of all the 
input. See Figure 4. Any undefined op- 
eration codes are assumed to be system 
macro instructions. A search of SYSSLB is 
made and the system macros are edited just 
as are programmer macros. In addition to 
scanning, Phase F2 inserts various items 
into appropriate dictionaries. 

Items present in the dictionaries are 
needed for insertion into edited text and 
generation by Phase F3 . 

When a dictionary is complete, it is 
subsetted and all items except those needed 
by Phase F3 are deleted. 



FUNCTIONS 

Phase F2 performs the following three 
logical functions : 

• Programmer macro definition scan and 
dictionary build. 

• Open code (main) text scan and dictionary 
build. 

• System macro definition scan and 
dictionary build. 




Figure 4. I/O Flow for Phase F2 



Text Stream Scan and Programmer Macro 
Editing 

Phase F2 reads source text from SYSIPT or 
from SYSSLB (if COPY instructions are 
encountered) . Programmer macro definitions 
must precede all source statements except 
ICTL, ISEQ, and listing control instructions, 

F2 translates each source statement 
character from EBCDIC to an internal code 
(Appendix F) . This internal code estab- 
lishes a continuous collating sequence — 
to simplify syntactic scans — of all valid 
assembler language characters. Self -de- 
fining character strings and comments are 
not limited to valid assembler characters. 
Therefore, self -defining character strings 
are re-translated into EBCDIC when they 
need to be evaluated. 

After translating the statement, F2 
writes a copy if it is on SYS001 (See Macro 
Generator Record Formats in Appendix BT) 
This copy will be retranslated to EBCDIC 
by Phase F8 and put out on SYSLST. 

F2 now builds edited text from the 
source statement. (See Macro Generator 
Record Formats in Appendix B. . ) 

F2 scans the statement again. If the 
statement has a name field, the name and 
its attributes are entered in the open code 
local dictionary or — if the statement is 
part of a programmer macro definition — 
in the local dictionary being built for 
that macro. 

F2 scans the operation field. If the 
statement is a prototype, F2 enters -the 
operation code — which is the name of the 
programmer macro defintion — in the global 
dictionary. If the statement is not a 
prototype, F2 looks up the operation code 
in the global dictionary. If the operation 
code is not in the dictionary, the 
statement is assumed to be a system 
macro instruction (located on SYSSLB) 
name and is entered in the global dic- 
tionary. 

F2 scans the operand field. If the 
statement is part of a programmer macro 
definition, symbols in the operand field 
(and their attributes) are placed in the 
macro local dictionary. For open code one- 
f or-one statements , only sequence symbols 
or local variable symbols in the operand 
field are placed in the open code local 
dictionary — ordinary symbols are not. 
For open code macro instructions, all 
symbols in the operand field are placed 
in the open code local dictionary. 
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F2 also checks statement syntax as it 
scans and it prepares an error record for 
each error encountered. 

The edited text record for open code 
statements is written on SYS001 immediately 
following the source record. If the 
statement is part of a programmer macro 
definition, the edited text record is 
written on SYS003. Error records are 
written after the edited text on both 
SYS001 and SYS003. 

After each complete programmer macro 
definition is processed, its macro diction- 
ary is subsetted — the entries are sorted 
on the little "a" pointer and the symbol, 
big "A" and little "a" pointers are re- 
moved. The dictionary is written on SYS003 
following the macro definition and the 
SYS003 NOTE/POINT location of the dictionary 
is placed in the global dictionary entry of 
that macro name. The dictionary in turn 
points to the programmer macro definition 
edited text. 

If, during source statement processing, 
a macro local dictionary or the open code 
local dictionary cannot be contained in 
core, segments of them are written on 
SYS002. These segments are backward 
chained. 



SUBROUTINES 



DRIVER 



System Macro Editing 

After is has processed the text stream, F2 
looks up each system macro instruction name 
entered in the global dictionary. The macro 
definition is located on SYSSLB, read in, 
edited, and written on SYS003 in the same 
manner as each programmer macro definition 
was processed from the text stream. A 
macro local dictionary is created during 
editing and is subsetted and written on 
SYS003 following the macro definition. 

F2 places the SYS003 NOTE/POINT location 
of each system macro definition local dict- 
ionary in the global dictionary entry for 
that macro instruction name. The dictionary 
in turn points to the macro definition 
edited text. 

Any name in the global dictionary for 
which F2 cannot find a corresponding sys- 
tem macro definition on SYSSLB is flagged 
as an invalid operation code. An error 
record is written for the statement in 
which the name appears. 

After it has looked up all macro names 
in the global dictionary, F2 subsets the 
global dictionary — removes all entries 
except those for global variable symbols. 
F2 also subsets the main local dictionary -- 
sorts the entries on the little "a" pointer 
and removes the symbol, big "A" pointers, 
and little "a" pointers. 

The subsetted global and open code local 
dictionaries remain in core. F2 then 
FETCHes phase F3 . 



One card is read and control is transferred 
to DRVER1. 

DRVERI 

The name and operation field of each in- 
struction is scanned. The name field is 
indicated as defined if non-blank syntax 
errors are noted and, at this point, may 
abort this statement. 

If a prototype is expected, the name 
(if not already present) and SYS003 NOTE/ 
POINT address is entered in the global dic- 
tionary, and each parameter (name field 
included) is scanned and entered into the 
local dictionary for this macro. Edited text 
is built up during scanning. The program 
goes to the output routine ENDOPR, and then 
to DRIVER. If a prototype was not expected, 
the operation field is searched for in the 
global dictionary. If not found, statement 
sequencing is checked and the operation 
field is entered in the global dictionary. 
The statement is treated as a macro instruc- 
tion. The name field and all operands are 
edited and edited text is produced. The 
program goes to ENDOPR for each operand. 
When all operands have been processed, 
control goes to DRIVER. 

If the operation code is found and is not 
an assembler operation, the statement se- 
quencing is checked. The operand field is 
scanned and put into edited text format. 
Control goes to ENDOPR. 

If the operation code is a declaration 
(GBLA, LCLA, etc.), the operand fields are 
scanned and errors diagnosed. Each oper- 
and is inserted into either the global 
dictionary or the local dictionary. Con- 
trol goes to DRIVER. 

If the operation code is a SET state- 
ment, it is checked for statement sequen- 
cing. If valid, the little "a" pointer of 
the variable symbol is found in the dic- 
tionary and inserted into the edited text. 
Control then goes to ENDOPR. 

If none of the above operation codes are 
found, the program performs a computed GO 
TO based upon the operation code. 



AIF and AGO 

The evaluation field, if present, is scan- 
ned and put into edited text. The little 
"a" pointer of the sequence symbol is in- 
serted into the edited text formats. 
Control then goes to ENDOPR. 



ANOP, TITLE, MNOTE, MEXIT, EQU, CSD, CNOP, 
DROP, USING, ORG, PRINT, SPACE, PUNCH, 
ENTRY, COM, EJECT, and LTORG 

All these subroutines follow a procedure 



14 



similar to AIF and AGO. 
control goes to ENDOPR. 



In each case, 



operand field is scanned and control goes 
to ENDOPR. 



MACRO 



MEND 



HJ.U1 ai4 J-li 



Control returns to DRIVER 
dication that the next statement is expect- 
ed to be a prototype. 



This subroutine goes to ENDOPR to write 
edited text for the MEND card. It then 
goes to DCLOSE. 



ICTL 

This subroutine puts out an error message 
and moves an END card image into the input 
buffer. Control is returned to DRVER1. 



END 



The name, operation, operand, and comments 
are written in an edited text format. Con- 
trol is transferred to DCLOSE. 



COPY 

If in a system macro, the address of the 
library is NOTEd. In either case, the input 
in GETSRC is set to the library. A FIND to 
the library is then undertaken. Control 
returns to DRIVER. 



ISEQ 

The operand field is scanned and new input 
parameters in GETSRC are defined. Control 
goes to DRIVER. 



REPRO 



The next card is read and put into an 
edited text format. Control goes to ENDOPR. 



EXTRN 



The operands are scanned and indicated as 
defined for the dictionary. Control goes 
to ENDOPR. 



START, DSECT, and CSECT 

The type attribute is set, and control goes 
to ENDOPR. 



DC, PS 

The operand fields are scanned, and, if in 
open code, the attributes are defined. In 
either case control goes to ENDOPR. 



CCW 



Type, length, and scale attributes are 
moved into the edited text field. The 



DCLOSE 

DCLOSE is entered after scan of each pro- 
grammer macro, each system macro, and open 
code. It closes each macro local dic- 
tionary, the open code local dictionary, 
and the global dictionary after all text 
has been scanned and all macros edited. 

At entry, DRCTY (in macro generator 
common) contains the note/point address (on 
SYS002) of the last or only segment of 
the current local dictionary. DCLOSE first 
notes the position of SYS002; then it 
points to the next available position, 
writes the final block of the current 
dictionary, and notes its position. DCLOSE 
then, one by one, reads back the segments of 
the current dictionary from SYS002 and 
subsets them, building a subsetted dic- 
tionary in core. Subsetted macro local 
dictionaries are written out on SYS003 
immediately following the edited text for 
their respective macros. If the subsetted 
dictionary is a programmer macro local 
dictionary, control returns to DRIVER. 

Otherwise, DCLOSE sets a switch in 
GETSRC to indicate all future input will 
be from SYSSLB. It then issues a FIND to 
SYSSLB for each undefined opcode. If the 
opcodes' caa be found in SYSSLB, control 
goes to DRIVER. When no more opcodes can 
be found in SYSSLB , those remaining are 
flagged as undefined. The open code local 
dictionary and the global dictionary are 
then subsetted, the input stream (SYSIPT) 
is flushed to /* or end-of-file, and the 
next phase is FETCHed. 

ENDOPR 

The comments field is edited, and control 
is transferred to NDSMT3. 

NDSMT3 

If in a macro, this subroutine writes on 
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SYS003; otherwise, it writes on SYS001. If 
lookups are not suppressed, it inserts a 
little "a" pointer into the edited text 
format where appropriate. In either case, 
it writes edited text on the selected unit. 
If an error record was written on SYS003, 
it is also written on SYS001. If a return 
is expected because of a previously set 
switch (SWTCH7, bit 0), it returns; other- 
wise it goes to DRIVER. 



GETSRC 

This program reads a record from SYSIPT or 
SYSSLB, depending upon which was selected. 
The record is transJated to internal code 
and immediately written on SYS001 if GETSRC 
is not processing system macros. Continua- 
tion cards and sequence numbers are noted 
and appropriate action is taken. Control 
returns to the caller. 



BWRITE 

This subroutine moves data to the buffer. 
If the buffer is full, it is written to 
the appropriate utility data set. In 
either case, control returns to the caller, 



BWFORC 

If room exists for another record in the 
buffer, control returns to the caller. 
Otherwise, it goes to BWRITE. 



BWNOTE 



This program NOTES the position of the 
selected utility data set and returns 
control to the caller. 
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PHASE F3 - MACRO GENERATION AND CONDITIONAL ASSEMBLY 



OVERALL OPERATION (FLOWCHARTS 8-11) 

Phase F3 reads text from SYS001. See 
Figure 5. This text includes source, error, 
and edited records. Source and error 
records are immediately written onto SYS002. 
MEND and MEXIT statements are not processed, 
The -edited text for open code and for all 
macro definitions, plus the subsetted 
global and local dictionaries, is used to 
generate one-for-one statements in edited 
text form and to perform conditional 
assembly. Assembler edited text records 
are produced and written on SYS002. When 
the end of text is reached, F3 FETCHes 
Phase F7. 



FUNCTIONS 
Phase F3 : 

• Generates a parameter table from a macro 
instruction-macro prototype pair of 
statements . 

• Generates assembler edited text records 
using macro definition edited text and 
the information in the global and 
associated local dictionaries. 

• Evaluates conditional assembly expres- 
sions . 

• Performs conditional assembly. 



Macro dictionaries, 
macro definitions 




Figure 5. I/O Flow for Phase F3 



PHASE F3E - ABORT CONDITION (FLOWCHART 12) 

Phase F3E will be substituted for Phase F3 
if any of the following abort conditions 
arise in Phase F2: 

• The global dictionary fills up. 

• A local dictionary exceeds 64K bytes on 
the overflow file or in core. 

• The subsetting area is too small. 

All text is read from SYS001. Only source 
records with accompanying error records are 
written on SYS002. All other records are by- 
passed. When the end of text is encountered, 
an edited text record for an END card is 
generated and written on SYS002, and F3 
FETCHes Phase F7. 



Macro Generation 

F3 reads text from SYS001. When a macro 
instruction is encountered, its exact 
location is NOTEd. The input file is 
SYS001 for outer macro instructions and 
SYS003 for inner macro instructions. A 
complete pass over the macro instruction 
text is made. Source and error records 
associated with the macro instruction are 
written on SYS002. When the end-of-macro 
instruction field is encountered, the 
position is NOTEd so that the input of 
text can later be resumed at the correct 
position. The input data set is then re- 
positioned again to the beginning of the 
macro instruction text. 

The little "a" pointer of macro instruc- 
tion points to the associated entry in the 
global dictionary. This entry points to 
the associated subsetted macro local dic- 
tionary on SYS003. If the entry is zero, 
this mnemonic represents an undefined 
operation to the macro generator. 

If the global dictionary entry is not 
zero, the first segment of the subsetted 
local dictionary is read in. This segment 
contains the macro local dictionary header 
record which indicates the size of this 
local dictionary. If there is room in the 
block of main storage allocated by Phase 
F2 , the complete local dictionary is 
brought into main storage and the available 
storage pointer is updated by the length of 
this local dictionary. 

The parameter table is constructed at 
this location. This table indicates the 
values to be substituted for macro proto- 
type symbolic parameters when they are 



Phase F3 - Macro Generation and Conditional Assembly 17 



referenced in model statements or inner 
macro instructions. &SYSNDX and &SYSECT 
are treated as parameters, and their entries 
are assigned the first two entries of this 
parameter table. The third entry is 
assigned to the name field. 

Then the NOTEd location of the per- 
tinent macro prototype edited text is 
obtained from the local dictionary header 
record, the prototype edited text is read 
in, and the parameter table is completed. 
For positional parameters, the values of 
the inner macro instruction operands are 
obtained from the appropriate dictionary, 
and for outer macro instruction operands, 
they are obtained from the operand itself. 
Entries are made sequentially in the param- 
eter table. As each prototype keyword is 
encountered, it is compared against each 
macro instruction keyword operand until a 
match is found. The values are then entered 
in the parameter table. 

The cycle of comparisons to find the 
matching macro instruction operand corre- 
sponding to the next sequential prototype 
keyword begins where the last cycle left 
off. The operands are compared in a "wrap- 
around" fashion. Because the entries in 
the parameter table are variable length 
entries in position number (parameter) 
order, a separate length table with a two- 
byte entry for each parameter table entry 
is maintained. (This length table contains 
the accumulated length of each parameter 
entry. In effect, an entry in this table 
is an increment that must be added to the 
address of the beginning of the parameter 
table to locate its associated parameter 
entry. ) 

After the parameter table is completed, 
the rest of the macro definition edited 
text is read in. Conditional assembly 
evaluation is performed as required, sub- 
stitutions are made for references to 
symbolic parameters and system variable 
symbols , and the macro definition is ex- 
panded, producing one-for-one edited text 
records for input to the assembler phases. 
If an inner macro instruction is encounter- 
ed, the length table is placed behind the 
parameter table, followed by the address of 
the length table and address of the begin- 
ning of the parameter table, and the entire 
cycle is repeated. Nesting of macro in- 
structions can occur to any depth, provided 
there is sufficient room left in storage to 
enter the local dictionary associated with 
the inner macro instruction. If there is 
not sufficient room left, this information 
is saved for diagnostic purposes, the con- 
cerned local dictionary is not brought into 
storage, further (deeper) nesting of macro 



instructions is discontinued, and the 
position of SYS003 is NOTEd. Processing 
continues at the discontinued text of the 
next outer level macro. 

When the ACTR value is exceeded within 
a macro expansion, the information is 
saved for diagnostic purposes, control is 
returned to the outermost macro instruction 
expansion, and processing continues. If 
the ACTR value is exceeded in open code 
processing, the information is saved for 
diagnostic purposes, an END assembler in- 
struction record is created and inserted 
in the text stream on SYS002, and input is 
ended . 

Whenever the processing of a macro defi- 
nition is completed, generation of output 
text is resumed for the next higher level 
macro instruction; or , if the outermost 
macro definition expansion has been com- 
pleted, processing of open code edited 
text is continued. After completely pro- 
cessing the edited text input from SYS001, 
F3 transfers control to Phase F7 . 



Conditional Assembly 

Phase F3 evaluates conditional assembly 
expressions. If the expression is in a 
SETx statement, the "a" pointer associated 
with the SET variable. symbol in the name 
field is used to place the current SET 
symbol value in its dictionary definition 
entry. When an AGO or AIF instruction is 
encountered and the evaluation, if one is 
necessary, indicates that a branch must be 
taken, the NOTEd position of the edited 
text named by the sequence symbol is ob- 
tained from the appropriate local dic- 
tionary. The text on SYS001 or SYS003 is 
repositioned and the appropriate text is 
read in and processed. 



FUNCTIONAL PROGRAM SECTIONS AND ROUTINES 

ZACINA 

This routine is the F3 entry point. It 
relocates permanent and open code diction- 
aries, initialized I/O buffers, and ini- 
tializes input pointer and macro base 
pointer. 

CGOTO 

This is a computed GO TO on the various 
statement types. 
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MACHOP 



BEGMAC 



This routine processes edited text records, 
evaluating fields which require substitu- 
tion. 



This routine reads the macro dictionary 
and initializes the parameter table with 
SYSNDX and SYSECT entries. 



SOURCE 

This routine puts out a source or error 
record. 



PROTO 

This routine points to macro definition 
prototype and reads it into the input 
buffer. 



SETST 

This routine determines the address of the 
result field, evaluates the operand, and 
stores the result. 



CSECT 

This routine stores the la&t CSECT name 
and outputs the record. 



AIFST 

This routine evaluates the expression. If 
expression is false, processing continues 
with the next sequential record. If the 
expression is true, the text file is re- 
positioned to the sequence symbol. 



AGOST 

This routine repositions the text file to 
the sequence symbol . 



MENDST 

If exit is from an outer macro, this routine 
sets the text file to read from SYS001; 
otherwise it continues reading from SYS003. 
It positions the text file to read from 
discontinued text. 



MINSTR 

This routine outputs the source, notes the 
discontinued text, and repositions the 
text file to the beginning of the macro 
instruction. 



ENDST 

This routine dumps output buffers and re- 
winds utility files. 



PR0T01 

This routine builds the parameter table, 

evaluating operands as needed. A merge 

of keywords is performed if keywords exist, 



VALUAT 

This routine sets the mode switch to 
character expression. It initializes the 
pointers, operator table, and result list 
and it zeros-out length buckets of string 
areas. In general, this routine is called 
for the evaluation of an expression. 
Evaluation may be required in the name, 
operation, or operands fields. An expres- 
sion may be a simple parameter reference 
or a complicated arithmetic expression in 
a SETA operand. 

Any term that requires a retrieval from 
some dictionary (parameter reference or 
SET variable) will eventually pass through 
the VALUAT routine. 

The routine operates on the flags shown 
in Appendix B . 



SYMBL 



This is an input pointer to an operator, 



CHFORC 



This routine tests for the type of operator, 



ADVOP 

There is no forcing in this routine. It 
advances the operation pointer and the 
emergency operation into the operation 
table. If the operation is OR or AND, it 
reinitializes the mode switch to character 
expression. 
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ADVINP 



This routine advances the input pointer. 



FORCE 

This routine determines if the new opera- 
tion forces the last operation entered in 
the operation table. 



D00PR1 

This routine processes the relational 
operator and stores the result. 



RELAT 



This routine processes the relational op- 
erator and stores the result. 



TST0P1 



ARITOP 



This routine tests for end of expression. 
If it is the end of the expression, TST0P1 
returns to DRIVER. 



This routine processes the arithmetic op- 
erator and stores the result. 



DOOPR 

This routine fetches the address of the 
two fields to be processed. 



SUBSC 

This routine processes subscripted variable 
or parameter sublist or $SYSLIST. 



RELINT 

This routine initializes a string pointer 
with the address of string area 2 and turns 
off the PUTST switch. 



NOTOPR 

If outside range of valid flags, this 
routine sets the end of expression flag in 
the operation table; otherwise it performs 
a computed GO TO on the flag. 



CSD 



This routine translates a character string 
back to the original representation. 



DECINT 

This routine stores the value of a decimal 
in the intermediate result list. 



META3 



META 



If character expression mode exists, this 
routine fetches the binary word and con- 
verts it to decimal. If arithmetic ex- 
pression mode exists, it initializes for 
entry of the result, then stores the result, 



This routine initializes for a SET variable, 



METB 



This routine initializes for a SET variable, 



MEB4 

If in the arithmetic expression mode, this 
routine initializes for entry and stores 
the result. 



METC 

This routine initializes for a SET 
variable. 



METC4 

This routine fetches the length of a string, 
initializes for the entry of the result, 
and stores the result. 



CHARS T 

This routine puts a string in the string 
area. 
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BEGSUB 

This routine stores the length of a string 
already present in the string area and 
sets the substring mode. 



SETARE 

This routine sets the mode switch to the 
arithmetic expression mode. 



SBEND 

This routine sets the substring comma or 
the left parenthesis switch. 



SATTBT 

This routine checks for the scale attribute 
of a parameter. 



PACK 3 

This routine stores the address of a result 
in the pointer list. 



SYSLST 

This routine stores a parameter flag to 
simulate a parameter reference. 



TATTBT 



PARMTR 



This routine checks for the type attribute 
of a parameter. 



This routine stores a parameter flag and 
number into the pointer list. 



LATTBT 

This routine checks for the length attribute 
of a parameter. 



ATTPAR 

This routine checks for the attribute of a 
parameter. 
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PHASE F7 - INITIAL ASSEMBLY 



OVERALL OPERATION (FLOWCHARTS 13-27} 
Phase F7 has three general functions: 

• Processing symbols 

• Processing literals 

• Assigning storage locations 

Symbols are processed by entering the 
mnemonics and their relative storage ad- 
dresses in a symbol table. Addresses are 
assigned relative to the beginning of the 
control section in which they are deter- 
mined. (While the program performs this 
function, it is working in the "assignment 
mode . " ) 

If more symbols are defined in the user's 
program than will fit in the storage al- 
located for the symbol table, the point in 
the text that caused overflow is NOTEd and 
the remainder of the program is processed 
without making further symbol table entries . 
However, symbols encountered are checked 
for duplicate names, and symbols already 
defined in the symbol table are substituted 
into the text where applicable. (While per- 
forming these functions, the program is in 
the "substitution mode.") 

When the end of the text data set is 
reached, it is repositioned to the begin- 
ning, and operand processing continues until 
the previously noted overflow position is 
reached. At this point, the old table is 
discarded and processing reverts to assign- 
ment mode and the next symbol table segment 
is constructed. 

Building symbol tables and processing 
operands continue until the last symbol 
defined has been placed in the symbol table. 

As name fields are processed, Phase F7 
collects appropriate symbols and creates 
an external symbol dictionary (ESD) which 
will be processed by Phase FI . 

Phase F7 also processes literals and 
self-defining terms in expressions affect- 
ing the location counter. Literals are 
entered in the symbol table. When an LTORG 
or END assembler instruction is encountered, 
the literals in the table are inserted in 
the program stream. 

All mnemonic operation codes created by 
concatenation or parameter substitution 
during macro generation are translated in 
this phase. 

Cross-reference records are generated in 
Phase F7 during symbol processing and ex- 
pression evaluation. 



Phase F7 also creates an AUTOTEST sym- 
bol table if requested by OPTION SYM, and 
writes cards generated by PUNCH and REPRO 
statements . 

Source, error, and edited text is read 
from SYS002, and literal pools and text are 
written on SYS001. 

Overflow of the external symbol diction- 
ary table, the literal-pool base table, or 
cross-reference table will result in 
writing overflow segments on SYS003. 



I/O FUNCTIONS 

Phase F7 may make several passes at the 
source text. See Figure 6. On the initial 
iteration, the text is read from SYS002 and 
reblocked onto SYS001. On subsequent 
iterations , the text is passed between 
SYS001 and SYS002. 

The text is reformatted so that a 
"broken" record always starts at the begin- 
ning of a physical block. This ensures 
that a logical record is contained within 
a single physical block. 

Edited text records are moved from the 
input buffers to a work area where work 
buckets are attached. The records are then 
transferred to the output buffers for 
output to a utility file. 

Error records are generated and trans- 
ferred to the output buffers as errors 
are encountered. 




Figure 6. I/O Flow for Phase F7 
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As the cross-reference block and literal 
base table overflow, they are written onto 
the overflow file, SYS003. Each time the 
external symbol dictionary overflows it is 
written onto SYS003, and its position on 
the file is NOTEd for future reference 
within the phase. The external symbol 

r 1 . srir? r-A 1 1 



>cks are identified an 



ailed 



from the overflow file through the use of 
the NOTEd record position. 



PHASE ORGANIZATION 

Phase F7 is organized as follows : 

• Mainline control - F7C. 

• Functional routines. 

GET statement - F7X. 
DC, DS evaluation - F7D. 
External symbol dictionary pro- 
cessor - F7E. 
AUTOTEST processor - F7N. 

• Common subroutines (common to routines 
within Phase F7) . 

Symbol table function - F7S . 
Expression evaluation - F7V. 
Error logging function - F7L. 
Literal DC generator - F7G. 
I/O subroutines and initialization - 
F7I. 

F7C - Mainline Control (Flowcharts 13-18) 

Control is passed to F7C by the initializa- 
tion routine, F7I. 

Program modifications are made based on 
the setting of the cross-reference and 
AUTOTEST option bits. F7N is called by F7C 
to generate AUTOTEST cards for all edited 
statements if the option bit is set. 

F7X is called to move the next edited 
text record into the text work area after 
putting the current (processed) text record 
onto the output file. 

-The mode is tested (program modifica- 
tion) . If substitution has been made, con- 
trol is passed to substitution control. 

If the type of operation is assembler 
op, control is passed to assembler op con- 
trol. 

Machine operations are processed, and 
the location counter incremented by the 
operation length. If an external symbol 
dictionary identification has been assigned, 
control is passed to the external symbol 
dictionary routine to initiate private code . 



If a name is present, the symbol table 
is tested for possible overflow. If the 
symbol table is full , the mode is changed 
to substitution, and control passed to 
substitution control. 

If a literal is referenced in the operand 
field, control is passed to F7D to make a 
literal entry in the symbol table. 

If the cross-reference bit is set, the 
operand is examined for references to sym- 
bols . 

The operation length is then calculated 
from the hex code. 

Assembler operation codes are processed 
by examining the assembler switch code for 
the following : 

• Uninitiated private code (if the 
external symbol dictionary ID = 0). 

• Possible symbol table overflow. 

• Location counter reference. 

• Special cross-reference scan to generate 
cross-reference records. 

The internal hex code for assembler 
operation codes is used to compute a 
branch address to the specialized assembler 
operation routine . 

In the substitution mode, F7C tests all 
records for symbol references. If substi- 
tution is required, a work bucket is at- 
tached for each symbol referenced in the 
operand. 

For machine operation codes, F7C tests 
name fields for multiply defined symbols 
and evaluates literals for duplicates. 

For assembler operation codes, F7C 
processes assembler operations in the sub- 
stitution mode only when substitution is 
required. 



F7X - Phase F7 GET Statement Routine 
(Flowchart 19) 



F7X is used by 7C to move edited text 
records into the text work area and put 
them back into the text stream. 

On all but the first time called, F7X 
puts the current text record onto the text 
file by calling PUTXT. 

If an error record is in the build area, 
F7X puts the error record onto the next 
record following the text record and clears 
the error record in core switch. 

If the literal switch is set, the next 
record will be moved into the text work 
area from the literal entry in the symbol 
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table. Otherwise, F7X calls GETPT for a 
pointer to the next text record in the 
input buffer. 

If an end-of-file is detected, F7X moves 
a QUIT record into the text work area if 
the mode is assignment. If the mode is 
substitution, the file is repositioned to 
the first text record. 

F7X tests each edited text record for a 
record type. If the record is not edited 
text, it is put out on the output text file, 
and the next record is examined. 

Edited text records are moved into the 
text work area for processing by Phase F7. 

Edited-generated records are converted 
to suitable format for Phase F7 processing. 
The hex code is set from the operation code 
conversion table, and substituted fields 
are adjusted for leading and trailing 
blanks . 

F7X sets absolute pointers to the operand 
field and appends fixed fields and symbol 
work buckets (if any exist) . 

The operand field on machine operations 
is scanned for literals. If an equal sign 
is found outside of quotes, the literal in 
the operand indicator is set> and the 
literal work bucket is appended to the text 
record. 

Fields are tested for legality as 
follows : 

• The name field is tested for legal char- 
acters, too many characters, and leading 
alpha character. 

• Assembler operations are tested for 
name field required or not allowed and 
operand field required or not allowed. 



the assembler operations COM, START, CSECT, 
DSECT, ENTRY, EXTRN, or ORG or a V-type 
address constant is encountered. It is 
also called at the beginning and end of 
assembled code. Three other entry points 
are used for ENTRY, EXTRN, and control 
sections in the substitution mode. 

The functions performed are as follows: 

• Generating external symbol dictionary 
entries. 

• Updating the location counter in exter- 
nal symbol dictionary entries. 

• Making symbol table entries for names in 
the statements handled. 

• Setting and maintaining the control 
table switches CBDNO, CBDSW, CCMNO, 
CESDID, CESDNO, CNOESD, CPCNO, CTPCSW, 
CSTVAL, CSGCTR, CLASID, CTNDID, CTCMSW, 
CTESDP, CTESRN, CTESRP , CTFSTN, CTLOC, 
and CTYPE. (See Appendix G.) 

• Issuing various error messages. 



F7N - F7 AUTOTEST Routine 

If the AUTOTEST option is exercised, con- 
trol is passed from F7C to F7N after the 
process of each statement that defines a 
symbol or affects the location counter in 
any way. 

The output records (cards) of F7N are 
written on SYSPCH and/or SYSLNK data sets 
Subsequent executions of the object pro- 
gram in the AUTOTEST mode use this in- 
formation . 



F7D - DC/DS Evaluation Routine (Flow- 
chart 20) 



F7S - Symbol Table Subroutine (Flowchart 24) 



This routine is called by F7C to process 
DCs, DSs, literals, and literal DCs. A 
complete syntax check is done for all DC 
types, and appropriate error messages are 
logged when necessary. One 15-byte DC work 
bucket is attached to the appended fixed 
field of the text record for each DC, DS , 
and literal DC operand for use by the Phase 
F8 DC evaluation routine (F8D) . In the 
external symbol dictionary, a table entry 
is made for each valid constant in a V-type 
DC. 

One complete statement is processed in 
each pass, and control is returned to F7C. 



F7E - External Symbol Dictionary Processor 
(Flowcharts 21-23) 

This processor is called whenever any of 



The symbol table processor has three entry 
points in Phase F7 : STPUTR, STGETR, and 
STROOM. Their function is to put symbols 
into the table, retrieve symbols from the 
table, and test whether room exists for 
another symbol . 

The symbol table and the external symbol 
dictionary share an area of main storage. 
The symbol table starts at the low-numbered 
end, and the external symbol dictionary 
starts at the high-numbered end. Room 
must be left by the symbol table for two 
external symbol dictionary segments of 260 
bytes each (16 items 16 bytes long, plus 
4 bytes for overflow addressing) . Apart 
from this restriction, overflow does not 
occur until the external symbol dictionary 
and the symbol table are about to meet. 

STPUTR tests to see whether a duplicate 
exists and, if not, puts the given symbol 
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into the table with its attributes. A type 
1 or 3 cross-reference is also made. 

STGETR tests whether the requested sym- 
bol is in the table and, if so, gives the 
address of the first byte in the entry after 
the name field. If not, zero is returned. 

STROOM determines whether overflow can 
occur on the next STPUT. If overflow can 
occur and room can be made for the symbol 
table, or if the ESD processor made the call, 
the external symbol dictionary is put on the 
overflow file. If not, the need to enter 
substitution mode is signalled. 



F7V - Expression Evaluation Routine (Flow- 
chart 25) 

SP1 at entry contains a pointer to the first 
character of the expression. SP1 at exit 
contains a pointer to the character which 
caused F7V to terminate. The terminating 
character is always a left or right paren- 
thesis, blank, or comma, unless there was 
a syntactical error, in which case SP1 is 
a zero. 

SP2 at exit contains the result, if the 
expression is absolute. If the expression 
is relocatable, SP2 contains a pointer to a 
full word value followed by the RLIST. If 
the expression contains an error, SP2 is 
zero. 

Upon exit from F7V, the condition code 
has the following meaning: 

Code Meaning 

absolute expression 

1 simple relocatable expression 

2 complex relocatable expression 

3 evaluation impossible (error) 

Syntax errors cause immediate exit from 
F7V; errors other than syntax are logged, 
and normal processing is continued. 

F7V has the following functions: 

• Evaluate expressions. 

• Log type 2 cross-references (XREF) - 
(only F8V) . 

• Convert self-defining values (SDVCF) . 

• Detect the following errors and pass the 
information to F7L: 

Relocatability error 
Self-defining value too large 
Arithmetic overflow 
Symbol not found - (F8V) 



Symbol not previously defined - (F7V) 

Two terms not separate 

Illegal character 

Too many terms 

Two operators illegally coupled 

Too many levels of parentheses 

Expression end premature 

Invalid symbol 

Expression value too large 



Algorithm Description 

A term is a relocatable or absolute symbol, 
a length attribute reference (L'sym), a 
location counter reference (*) , or a self- 
defining value. When a term is encounter- 
ed r its value is entered in the next avail- 
able position in the TERMS list. If it is 
a relocatable term, the sign code and its 
external symbol dictionary ID are entered 
in the next available position in the 
RLIST list. If it is an absolute term, the 
RLIST pointer is lumped to the next half- 
word, in effect putting zeros into that 
position, since all the tables are zeroed 
during F7V initialization. 

Type 2 cross-references are made during 
Phase F7 assignment mode. 

When an operator is encountered, its 
code is entered in the next available posi- 
tion in the OPRNS list, providing its 
hierarchy is greater than the previous 
operator. Hierarchy codes are as follows: 



0, b 

+ 

* 
/ 



The code for a left parenthesis is 
always entered in the OPRNS list. A right 
parenthesis forces all operators in the 
OPRNS list back to the preceding left 
parenthesis. A blank, comma, or a left or 
right parenthesis which legitimately ends 
the expression forces all operators in 
OPRNS to the top of the list. An operator 
with a code less than or equal to the pre- 
vious code forces only the previous op- 
erator. 

When an operator is forced, the arithme- 
tic is performed between the last two en- 
tries in the TERMS list, and the result is 
stored in the position of the first entry 
involved in the arithmetic. Also, the sum 
of the two corresponding NTRMS entries is 
placed in the position of the first entry. 

COND is intially set to on entry to 
F7V. It is then set to 1 each time a right 
parenthesis, +, or - is encountered; to 2 
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each time an * or / is encountered; to 
3 each time an absolute term or left paren- 
thesis is encountered; and to 4 each time a 
relocatable term is encountered. The COND 
switch setting determines the validity of 
an operation. See Table 3. For example, 
/ is valid only when C0ND=3 (/ follows an 
absolute term or left parenthesis.). If 
C0ND=4 , a relocatability error is logged 
(/ follows a relocatable term) . A syntax 
error is logged if COND=0 (expression begins 
with /) or if C0ND=1 or 2 (/ follows +, -, 
*., /, or right parenthesis) . 

Work tables used in F7V are as follows: 

TERMS (16 full words) - Entry is made for 
each term in the expression. At end of 
evaluation, the first full word location 
contains the final result; subsequent 
table entries contain intermediate re- 
sults. 

OPRNS (20 bytes) - Entry made for each 
operator in the expression. 



Table 3. Condition Switch Settings 



NTRMS (16 bytes) - A 2 is entered for each 
term. At end of evaluation, the first 
byte contains a value equal to twice the 
number of terms in the expression. 

RLIST (16 half words) - Sign code (1 for +, 
2 for — ) and external symbol dictionary 
ID are entered for each relocatable term; 
zeros appear for each absolute term and 
undefined symbol. During addition and 
subtraction, RLIST entries are zeroed 
when the signs are opposite and the ex- 
ternal symbol dictionary IDs are the 
same. 

Upon exit, a simple relocatable expres- 
sion will have a + sign and the external 
symbol dictionary ID of its unpaired posi- 
tive term in the first half word, and the 
remaining 15 halfwords will contain zeros. 
A complex relocatable expression at exit 
will have a non-zero halfword for each un- 
paired relative term. The non-zero half- 
words will be scattered in the table. A 
complex relocatable expression may also 
be the result of a single unpaired negative 
term. A minus sign (-) and the external 
symbol dictionary ID of this term will ap- 
pear in the RLIST. 



Character 
Encounterd 


Previous 
Setting 


Action 


Flowchart 
References 


start 


-- 


set COND = 




( 


0/1/2 


set COND - 1 


LPAR 


3/4 


if PCNTR > 4, log error 
IJY026 


) 


0/1/2 


log error IJY085 


RPAR 


3/4 


set COND = 3 

if PCNTR = 0, end of expression 


+ or- 


3/4 


set COND = 1 


LTCOM 


0/1/2 


log error IJY085 


LOOP 


* 


0/1 


set COND = 4 

(* is location counter ref.) 


LTCOM 


2 


log error IJY085 


3 


set COND x 2 
(* is mult.) 


4 


log error UY025 


/ 


3 


set COND = 2 


LTCOM 


0/1/2 


log error IJY085 


LOOP 


4 


log error IJY025 


absolute term 


3/4 


log error IJY085 


Term 

Computing 

Routines 


0/1/2 


set COND = 3 


relocatable 
term 


0/1 


set COND = 4 


2 


log error UY025 


3/4 


log error IJY085 


, or blank 


0/1/2 


log error IJY039 


BLCOM 


3/4 


if PCNTR > 0, log error 
IJY039 



F7L - Error Logging for Phases F7 and F8 
(Flowchart 26) 

This routine is called to attach error mes- 
sages to an edited text record. 

F7L tests the error switch in the control 
table to determine if there is an error re- 
cord for the current text record in the 
error record build area. If there is, the 
error count is compared with the maximum al- 
lowable number of errors (16) . If the count 
is equal to the maximum , the current and 
all subsequent error messages are ignored. 

If there is no error record in the build 
area, F7L tests the "error record follows" 
bit in the text record. If the bit is 
set, the error record is moved into the 
build area from the text file. If not, the 
error record is initialized in the build 
area, and the "error record follows" bit 
(TXERI) is set in the text record. In 
either case, the error switch in the con- 
trol table is set for subsequent calls on 
the current text record. 

The error message is added to the error 
record, and the error count is incremented 
by one . 

The relative column pointer is added to 
the error message. If no column pointer is 
required, it is set to zero. 

Control is then returned to the calling 
routine . 

F7G - Literal DC Generator (Flowchart 27) 

F7G is a routine which builds a literal DC 



26 



edited text record for an outstanding 
literal entry in the symbol table. F7X in- 
vokes F7G once for each literal DC that is 
to be built into the edited text. F7G then 
moves in pertinent information such as the 
record length, record type X'60 1 for edited 
generation, operation type X'* 80' for as- 
sembler, operation code X*25* for literal, 
and operation and name field lengths of 
zero. After the text has been generated, 
control is returned to the caller. 



F7I - Phase F7 Initialization and I/O 



The I/O portion of phase initialization 
OPENS the three utility data sets. READ, 
WRITE, CHECK, and POINTS are employed for 
all data sets. »The routine initiates a 
READ of the first block of the text stream 
and initializes text, literal base table, 
and cross-reference pointers. 

Yl I/O functions for PHCLS , GETPT, GETXTM, 
PUTXT, CLSTXT, CWRESD, CRDESD, PUTXRF, and 
PUTLBT are described below. 



PHCLS - Phase Close 

The I/O portion of the phase close function 
repositions (POINTS) SYS001 and SYS002 and 
inserts the following parameters into the 
I/O portion of the assembler control table. 

CTRLBT (4 bytes) - Pointer to the first 

literal base table block on the overflow 
file, SYS003. 

CTCLBT (2 bytes) - Count of the number of 
literal base table physical blocks which 
have been written onto SYS003. 

CTRXRF (4 bytes) - Pointer to the first 
cross-reference table block contained 
on the overflow file, SYS003. 

CTCXRF (2 bytes) - Count of the number of 
cross-reference physical blocks which 
have been written onto SYS003. 

The literal base table pointers are 
tested to determine if any literal base 
table entries have been made. If so, 
an end-of-file label is embedded into the 
literal base table stream, and the partially 
filled block is written onto the overflow 
file, SYS003. If no literal base table 
entries have been made, then CTCLBT is 
cleared to zeros. 

PHCLS may be called by an unconditional 
branch to PHCLS. PHCLS FETCHes FI. 



GETPT - Get Point 

GETPT points to the next logical text 
record within the input text stream. 



Method. GETPT double-buffers the text 

Logical buffers may be split be- 
The routine 
The 



stream. 

tween two physical blocks. 

points to each record in sequence. 

pointer is pointing to the most significant 

byte of the record length indicator (RLI) . 



Restrictions and Assumptions . The "last 
record bit" contained within FLAGA must be 
set to terminate the input text stream. A 
logical record must be contained within 
two physical blocks. 



GETXTM - Get Text and Move 

GETXTM transfers a logical record from the 
input text stream to an area specified by 
the user. 

Method . Upon entering, GETXTM tests a 
global switch which is set by the GETPT 
subroutine. If the switch is set, GETXTM 
clears the switch and transfers the record 
that is currently being pointed. If the 
switch is not set, GETXTM calls GETPT to 
point to the next logical record in the 
input text stream. GETXTM then transfers 
that record to the user's work area. Thus, 
if the user wishes the next logical record 
moved to his work area, he can call GETXTM 
without first calling GETPT. 

If the text record is segmented, the 
routine joins the two seqments together to 
produce a single continuous record. In so 
doing, it drops the second record length 
indicator and updates the first record 
length indicator to the total record byte 
count. In addition, the "break flag bit" 
contained within FLAGA is cleared to zero. 



PUTXT - Put Text 

PUTXT retrieves a logical record from the 
input buffers or from an area specified by 
the user, and transfers the record to the 
output buffers for eventual output to a 
utility data set. 

Method . If SP1 is zero, PUTXT sets a 
global switch and calls GETXTM. GETXTM 
tests the switch and, if set, transfers 
the text record from the input buffer to 
the output buffer. If the GETPT global 
switch is not set, GETXTM will call GETPT 
to point to the next logical record. Thus, 
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the next logical record in the text stream 
can' be transferred directly to the output 
buffer by simply calling PUTXT without first 
calling GETPT or GETXTM. 

If SP1 is non-zero, the record is trans- 
ferred from the area specified by SP1 into 
the output buffer. 

Restrictions and Assumptions. A logical 
record must not exceed in length one physi- 
cal output block. 



CLSTXT - Close Text 

CLSTXT POINTS the input text file, embeds 
an end-of-file label into the output text 
stream, and POINTS the output text .file. 
In addition, it interchanges the utility 
file designators so that the current input 
text file becomes the future output text 
file, and the current output text file be- 
comes the future input text file. 

Method. The output buffer management sub- 
routine is called, an end-of-file label is 
embedded into the output text stream, and 
the output file is repositioned. The I/O 
designators are interchanged, and the text 
buffer pointers are initialized. This 
routine is called by PHCLS. Hence, unless 
the phase anticipates an iteration on the 
text stream, this routine should not be 
called by mainline control. 



CWRESD - Write External Symbol Dictionary 

CWRESD writes the external symbol diction- 
ary (ESD) onto the overflow file, SYS003, 
and NOTEs its position for future reference, 

Method . The routine tests the write posi- 
tioning required switch. If set", the file 
is POINTed to the next write position. If 
not set, the file is assumed positioned for 
the next write. The external symbol dic- 
tionary block is then written onto the over- 
flow file and its position NOTEd. The note 
label is passed on to the user for future 
reference. 

Restrictions and Assumptions. The routine 
does not keep count of the number of ex- 
ternal symbol dictionary blocks read or 
written. It assumes the user is requesting 
a block which has been previously written. 



reads it into an area specified by the 
caller. 

Method . Using SPl, the overflow file is 
POINTed to the requested external symbol 
dictionary, the external symbol dictionary 
is read into the area specified by SP2, 
and the write positioning required switch 
is set. 

Restrictions and Assumptions. The routine 
does not keep count of the number of ex- 
ternal symbol dictionary blocks read or 
written. It assumes the user is requesting 
a block which has been previously written. 



PUTXRF - Put Cross-Reference 

PUTXRF points to the next available area in 
the cross-reference output area for building 
a cross-reference logical record. 

Method . The routine is called each time a 
cross-reference record is to be built. The 
routine advances through the buffer at 17- 
byte increments until the block is filled. 
At this point, the buffer is written onto 
the overflow file at the next available 
write position. The first block written 
onto the overflow file is NOTEd for future 
reference. 

Restrictions and Assumptions. The routine 
assumes a record will be built at the 
POINTed location since it merely advances 
to the next 17-byte location each time it 
is called. 



PUTLBT - Put Literal Base Table 

PUTLBT points to the next available area 
in the literal base table output area for 
building a literal base table logical 
record. 

Method . The routine is called each time a 
literal base table record is to be built. 
The routine advances through the buffer at 
13-byte increments until the block is filled, 
At this time the buffer is written onto the 
overflow file at the next available write 
position. The first block written onto the 
overflow file is NOTEd for future reference. 



CRDESD - Read External Symbol Dictionary 

CRDESD POINTS the overflow file to the re- 
quested external symbol dictionary and 



Restrictions and Assumptions. The routine 
assumes that a record will be built each 
time it is called since it merely advances 
to the next 13-byte location. 
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SYPUNH - System Output (Located in RTA) acter. SYPUNH tests the SYSPCH and the 

SYSLNK option bits. If either one is set, 
the contents of the 81-character buffer 
SYPUNH outputs 80-character logical records (except for the control character) are 
to either the SYSPCH or SYSLNK data sets or transferred accordingly to the SYSPCH or 
to both. On entry, SPl points to the first SYSLNK data sets. If both are set, the 
byte of an 81-character buffer where the contents of the buffer are transferred to 
first character is an internal control char- both data sets . 
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PHASE FI - INTERLUDE 



OVERALL OPERATION (FLOWCHART 28) 

The main function of Phase FI (F Interlude) 
is to write the external symbol dictionary 
on the SYSLST, SYSPCH, and/or SYSLNK data 
sets. External symbol dictionary segments 
and literal pool bases are located either in 
main storage or in an overflow segment on 
SYS001. 



I/O FUNCTIONS 

Phase FI processes literal base table and 
external symbol dictionary entries genera- 
ted in Phase F7 % and outputs literal adjust- 
ment table entries. See Figure 7. The 
literal base table and literal adjustment 
table are passed at the GET/PUT logical 
record level, and the external symbol dic- 
tionary input is called at the READ level. 
The I/O subroutines perform their own block- 
ing and deblocking functions for the logical 
record entries. The system output routines 
SYPUNH and SYSL are called to output 
external symbol dictionary data. 




Literal Base Table 
External Symbol 

Dictionary Overflow 



Main 
Storage 



I/O SUBROUTINES 

FII - FI Initialization 

The I/O portion of phase initialization 
determines if any literal base table entries 
have been output from Phase F7. If so, the 
first literal base table block is read 
from the overflow file, SYS001, and the 
pointers to the first logical record entry 
within the block are initialized. Control 
is then transferred to the mainline control 
driver. 

Phase F7I (.the Phase F7 I/O routine) 
transfers control to FII which in turn 
transfers to Phase FI mainline control. 



FICLS - FI Phase Close 



*lf symbol table overflow occurred in Phase F7, 
SYS001 may be used instead of SYS002. 

Figure 7. I/O Flow for Phase FI 



The I/O portion of the phase close. function 
embeds an end-of-file label into the literal 
adjustment table output stream and writes 
the last literal adjustment table block 
onto the alternate overflow file. SYS001 
and the alternate overflow file, are re- 
positioned, and the following entry is 
placed into the assembler control table . 

CTCLAT - Count of the number of physical 
literal adjustment table blocks which 
have been written onto the alternate 
overflow file. 

Control is then transferred to the next 
phase. 

FICLS should be called only after main- 
line control has finished its phase. FICLS 
may be called by an unconditional branch 
to FICLS. 



GETLBT - Get Literal Base Table 

GETLBT points to the next logical record 
entry contained within the literal base 
table input area. 

Method. The subroutine is called each 
time a literal base table logical record 
is required. The routine advances through 
the buffer at 13-byte increments until the 
entire block has been processed, at which 
time the next literal base table physical 
block is read from the overflow file. If 
either an end-of-file label is detected or 
the block count becomes zero (whichever 
appears first) , the end-of-file flag is 
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set, and control is passed to the caller. 



SYSL - System List 



RDESD - Read External Symbol Dictiona ry 

RDESD POINTs the overflow file to the 
requested external symbol dictionary and 
reads the block into an area specified by 
the caller. RDESD is embedded into the 
section LPFI2. LPFI2 reads the entire 
external symbol dictionary into core, seg- 
ment by segment. Logic is identical with 
Phase F7 RDESD. 



SYSL outputs a 121-character line to the 
system list data set, SYSLST. 



Method . The SYSL option bit is tested. 
If set, the line is written on SYSLST. 
If not set, a return is executed. 



MAINLINE CONTROL 



PUTLAT - Put Literal Adjustment Table 

PUTLAT points to the next available area 
in the literal adjustment table output area 
for building a literal adjustment table 
logical record. 

Method . The routine is called each time 
a literal adjustment table logical record 
is to be built. The routine advances 
through the buffer at 16-byte increments 
until the block is filled, at which time 
the buffer is written onto the alternate 
overflow file. The alternate overflow 
file is designated as that file which is 
neither the prime overflow file, SYS003, 
nor the current text file. Which file is 
designated is contingent on the number of 
passes through the text stream which were 
executed by the previous phase, Phase F7 . 



If the external symbol dictionary is not 
in core , it is fetched one segment at a 
time using the segment residence table. 
The adjustment table is constructed from 
control sections on the external symbol 
dictionary by accumulating their lengths 
and aligning to the next higher double 
word . 

Another pass through the external 
symbol dictionary outputs the listing and 
cards item by item. These consist of 
name, type, ID, address, length, and 
LDID, as appropriate, on the listing; and 
name, type, address alignment, and length 
or LDID on the cards , with one ID per 
card to identify its first SD, PC, ER, 
or XD type. 

The adjustment table built in FI3 and 
the literal base table are used to build 
the literal adjustment table. 
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PHASE F8 - FINAL ASSEMBLY 



OVERALL OPERATION (FLOWCHARTS 29-36) 

Phase F8 makes the final pass through the 
program text, which is read from SYS001 
or SYS002, depending on the number of 
iterations . During this pass , any oper- 
ands which were not processed by Phase F7 
are processed from the last symbol table 
created during that phase. 

Any self-defining values which were not 
converted to their binary values are now 
processed. All address expressions are 
evaluated, and the results are substituted 
for the expressions. Addresses are re- 
structured into a base register and dis- 
placement format. 

At the same time, the completely 
assembled text is written in relocatable 
object program format on SYSPCH or SYSLNK, 
and in program listing format on SYSLST. 

Invalid statements are flagged on 
SYSLST. Error records are created and 
written on the overflow file, SYS003, to be 
listed by the Post-Processor Phase. 

The relocation dictionary 'is built 
during Phase F8 , and segments can overflow 
onto SYS003. 




*lf symbol table overflow occurred in Phase F7, 
SYS001 and SYS002 may be reversed. 



I/O FUNCTIONS 



Figure 8. I/O Flow for Phase F8 



Phase F8 passes through the text stream 
once scanning the logical text records 
which were output from Phase F7 . See 
Figure 8. The phase inputs the literal 
adjustment table blocks from the alternate 
overflow file and outputs cross-reference, 
relocation dictionary, and diagnostic rec- 
ords onto the overflow file for subsequent 
processing by FPP. The cross-reference and 
relocation dictionary records are output at 
the PUT level where the cross-reference 
records are inserted into the cross- 
reference output stream from where they 
left off in Phase F7. In addition, records 
are output to the SYSLST, SYSPCH, and SYSLNK 
files via the output subroutines SYSL and 
SYPUNH. 



PHASE ORGANIZATION 

The following control sections comprise 
Phase F8: F8I, F8C, F8M, F8A, F8P, F8D, 
F8V, F8L, F8N, and F8S. These are self- 
contained routines which may be link-edited 
separately. Communication between routines 
is via registers and the ACT table. When 



FI passes control to Phase F8, the above 
routines are loaded into core and remain 
there until the completion of Phase F8 
execution. 



F8I - Phase F8 Initialization and I/O 

On entry to Phase F8 , the overflow file , 
SYS003, is positioned for writing the re- 
location dictionary and diagnostic records . 
If any literal adjustment table records 
were written by Phase FI, the first literal 
adjustment table block is read from the 
alternate overflow file. The literal 
adjustment table pointers are initialized 
to point to the first logical record con- 
tained within the literal adjustment table 
input area. The relocation dictionary 
type indicator is inserted into the first 
byte of the relocation dictionary output 
buffer (the cross-reference output buffer 
was initialized in Phase F7) , and control 
is transferred to Phase F8 mainline 
control, F8C. 
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F8I Subroutines 



GETXTM - Get Text and Move 

GETXTM retrieves the next logical record 
from the input text stream and moves the 
record to an area specified by the user. 
Each time the routine is entered, a pointer 
is advanced to the next logical record in 
the input text stream. The record is moved 
from the input buffers to an area specified 
by SP1. The input stream is double-buf- 
fered to increase input speed and process- 
ing efficiency. If an end-of-file label is 
encountered, the EOF flag is set and passed 
to the caller. GETXTM sets a switch which 
prevents any further processing of the text 
stream. 



GETLAT - Get Literal Adjustment Table 

GETLAT points to the next literal adjust- 
ment table logical record contained within 
the literal adjustment table input area. 
The routine is called each time a new lit- 
eral adjustment table record is desired. 
On exit, SP1 contains the first byte ad- 
dress of the next literal adjustment table 
logical record. The routine advances 
through the buffer at 16-byte increments 
until the block is empty, at which time the 
next block is read from the alternate over- 
flow file. SPl returns with if there are 
no more literal adjustment table entries. 



PUTRLD - Put Relocation Dictionary 

PUTRLD points to the next available area in 
the relocation dictionary output area for 
building a relocation dictionary logical 
record. The routine is called each time a 
relocation dictionary is to be built. SPl 
returns with the first byte address of the 
next available record location in the relo- 
cation dictionary output buffer. The rou- 
tine advances through the buffer at 6-byte 
increments until the block is filled, at 
which time the buffer is written onto the 
overflow file, SYS003. The first block 
written onto the overflow file is NOTEd for 
future reference. 



PHCLS - Phase F8 Close 

The phase close subroutine POINTS the text 
file, embeds end-of-file labels into the 
relocation dictionary output stream, and 
writes their buffers onto the overflow 
file. The following nine parameters are 
passed to the Post Processor Phase through 
the assembler control table: 

CTPCHI (1 byte) - Option bits for SYSPCH, 
SYSLNK, LIST, XREF, and TEST. 

CTCXRF (2 bytes) - Count of XREF blocks 
contained on the overflow file. 

CTCRLD (2 bytes) - Count of relocation 
dictionary blocks contained on the 
overflow file. 

CTCERR (2 bytes) - Count of the number of 
error messages contained on the overflow 
file. 

CTRXRF (4 bytes) - Location of the first 
XREF block located on the overflow file. 

CTRRLD (4 bytes) - Location of the first 
relocation dictionary block located on 
the overflow file. 

CTRERR (4 bytes) - Location of the first 
diagnostic message located on the over- 
flow file. 

CESDNO (2 bytes) - Deck number. 

CTITLE (4 bytes) - Deck identification. 

PHCLS transfers control to FPP, the Post 
Processor Phase. 



F8C - Mainline Control (Flowchart 29) 

Control is passed to F8C for each record; 
F8C in turn passes control to the various 
routines necessary to process that partic- 
ular record. Program sequences within the 
mainline control that perform specific 
functions are described below. 



F8C Subroutines 



WTERR - Write Error Message 

WTERR outputs a printer-formatted diagnostic 
message onto the overflow file for eventual 
listing by the Post Processor Phase, Phase 
FPP. 

WTERR is called with SPl pointing to the 
first byte of a 121-byte error message. 



ERL0D8 

Errors encountered in Phase F8 for. a rec- 
ord are appended to the corresponding Phase 
F7 error record and are put in the record 
work area F8W0RK (ACT) . 
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ENDOFF 

ENDOFF processes any error encountered in 
the final record and exits to the F8I 
phase close routine. 



SETWBP 

CTXWBP (ACT) points at the first symbol work 
bucket in the input record. If there are 
no symbol work buckets, CTXWBP (ACT) will be 
set to zero. CTXABP (ACT) is set to point 
at the appended fixed field of the input 
record. 



SRLIGN 

SRLIGN makes alignments as necessary on all 
machine ops, literal DC, DC, DS , CCW, and 
CNOP. TXALIN in F8W0RK(ACT) is investigated, 
If this 3-bit designator is non-zero, one 
to seven alignment bytes are output. 



F8M - Machine Operation Processor 
(Flowchart 30) 

F8M processes the operand field of all 
machine ops. Decomposition, adjustment, 
and formatting occur in this routine. The 
decomposition routine using table is shown 
in Figure 9. F8M is entered from the F8C 
routine. 



F8M Subroutines 



Using 
Table 
Pointer 



Using Table 



00 - Register not used 
FF] — Register in use 



External 
Symbol 
Dictionary 
ID 



Value 



The using table is used by the decomposition routine. The using 
table pointer and the using table are parallel tables. Every 
decomposable value is checked against the complete table for 
possible decomposition. 



Figure 9. 



Decomposition Routine Using 
Table 



RR1, RR2, RR3, RR4 , RXl , RX2 , RSI, RS2, SI3, 
SI4, SSI, SS2 

These subroutines scan the operand fields 
of machine operations. They do a syntax 
check and format the instruction building 
area, F8INST(ACT). See Figure 10. These 
subroutines call on lower level subroutines 
which do semantic checks , and call on 
another set of subroutines which do ex- 
pression evaluation and decomposition. 

RR4 refers to extended mnemonic register- 
to-register instructions. RX2 refers to 
extended mnemonic register-to-indexed- 
storage instructions. 

F8AREX does a complete syntactic scan on 
each expression and sets a group of semantic 
flags. The necessary flags are investigated 
by the individual routines, and error proce- 
dures are taken where necessary. 



F8A - Assembler Operation Processor 
(Flowchart 31) 



F8A processes the following assembler ops : 
MNOTE, PRINT, SPACE, EJECT, PUNCH, REPRO, 
'" — *" m CSECT, ~~" — 



EJECT ] 
START , 



TITLE, ENTRY, EXTRN, START, CSECT, DSEC 
COM, EQU, ORG, END, LTORG, USING, DROP, 
literal DC, DC, DS , CCW, and CNOP. 

F8A is entered from the F8C routine. 



F8A Subroutines 



PRINTB 



This routine investigates the operand field 
of all print statements-. A syntax check 
is made, and from one to three conditions 
are set per statement. 
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Location 



Operation Code 



F8INST (ACT) 



+1 



+2 



+3 



hl 2 L 



R 1' L 1 | R2'^3' X 2' L 2 



B 1/ B 2 A 



D^D^ 



B 2 B h» 



D 2B 



+4 



+5 



+6 



• Absolute Operand 1 address 



+7 



+8 



Absolute operand 2 




+12 



+13 



Figure 10 . Instruction Build 


ing Area 


ON sets 


F8PON(ACT) 


to 


OFF sets 


F8PON(ACT) 


to FFi6 


GEN sets 


F8PGEN(ACT) 


to 


NOGEN sets 


F8PGEN(ACT) 


to FF]_6 


DATA sets 


F8PDAT(ACT) 


to 


NODATA sets 


F8PDAT(ACT) 


to FFi6 



SPACE 

The SPACE routine does a complete syntax 
check and, if necessary, checks semantics, 
and does expression evaluation. A switch, 
SPACSW(ACT) , is set to FF]_6 on a valid 
SPACE statement and to AA]_5 on an error 
condition. SP2 is set to the number of 
lines to be spaced. 



EJECT 

Sets a switch, EJCSTW(ACT) , to FF]_ 6 



PUNCHB 

Sets a switch, REPSW(ACT) , to 1. 

REPRO 

Sets a switch, REPSW(ACT) , to 3. 

TITLEB 

Sets a switch, REPSW(ACT) , to 7. 

MNOTST 

Sets a switch, REPSW(ACT) , to 15. 

ENTRYB 

The ENTRYB routine in Phase F8 is only an 
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error checking routine. All actual 
processing has been completed in Phase F7 . 



EXTRNB 

The EXTRNB routine returns control to main- 
line control. EXTRN processing is com- 
pleted in Phase FI . 



CCWB 

The CCWB .routine processes the operand field 
of CCW statements. A complete syntax and 
semantic check is made. The instruction 
building area is formatted for output. 
Through the F8D routine, relocation diction- 
ary entries are made for the second operand 
of CCW statement. 



STARTB 



CNOPB 



The start routine checks the private code 
switch, CTPCSW(ACT) . If private code is 
not initiated, the non-reentrant switch is 
turned on. If private code has been ini- 
tiated, the start statement is ignored, 
and control is immediately returned to 
Phase F8 mainline control. 



CSECTB 

The CSECTB routine checks if the new exter- 
nal symbol dictionary ID is different 
from the current external symbol dictionary 
ID. If not, control is immediately re- 
turned to Phase F8 mainline control. If 
different, current type, external symbol 
dictionary ID, and current adjustment base 
are set, and the non-reentrant switch is 
turned on. 



DSECTB 

The DSECTB routine checks if the new exter- 
nal symbol dictionary ID is different from 
the current external symbol dictionary ID. 
If not, control is immediately returned to 
Phase F8 mainline control. If different, 
current type and external symbol dictionary 
ID are set. Current adjustment base is set 
to zero, and the non-reentrant switch is 
turned off. 



This routine places as many BCR instruc- 
tions as necessary in the instruction 
stream. 



EQUB 

The equivalence routine puts the equated 
value into the address location for printed 
output . 



ORGB 

The ORGB routine returns control to mainline 
control. Processing is done in Phase F7. 



ENDB 

The ENDB routine does a syntax check and 
sets the end switch ENDSWH(ACT) for the 
Post Processor to put out the correct end 
card. It also formats the printout of the 
end record. 



LTORGB 

This routine tests to see if literals are 
to be put out. If they are, the literal 
adjustment table is input, and the location 
field is set to the address of the first 
literal to be output. 



COMB 

The common routine is the same as the DSECTB 
routine. The non-reentrant switch is turned 
on. 

NOTE: The reentrant error switch, CTRENT- 
(ACT) , is a one-byte cell set by an ini- 
tialization routine to zero. A violation 
of reentrant code is detected by F8M, and 
the associated error routine sets 
CTRENT(ACT) to FFi6- The switch is in- 
vestigated by Phase FPP, and, if the setting 
FF]_6 has occurred, the appropriate error 
message is logged. No message for possible 
reentrant error occurs in line. 



USINGB 

This routine does a complete syntax and 
semantic check on the operand of a using 
statement. A using table pointer is set to 
FF for each register being used, and the 
correct value and the external symbol dic- 
tionary ID are set in the corresponding 
using table entry. 



DROPB 

This routine does a complete syntax and 

semantic scan on the operand field of a 



36 



DROP statement. The using table pointer is 
set to for each register dropped. 



LITERB, DSB, DCB 

Switches are set for proper branching with- 
in the F8D routine,- and control is passed 
to F8D. 



F8P - Output Routine (Flowcharts 32-33) 

At entry, the current text record at 
F8W0RK(ACT) is moved into INPUT work area. 
If this record is one of the edited types, 
a partially formatted left side at F8INST- 
(ACT) is moved into LFTHLF work area. 

F8P has four entry points: F8P , BLDIMG, 
COMMENT, and LOADRA. Text records are 
passed to F8P as they are encountered in 
the text stream. 

• F8P processes edited text records 
(type 100) . 

• BLDIMG builds a source image from gen- 
erated edited records (type 110 or 111) . 

• COMMENT loads the right side for source 
records (type 000, 010, or 011) and puts 
an error line for error records (type 
001) . 

• LOADRA prints an error line if the last 
record is an error record (type 001) . 

As an example, if the PRINT ON, DATA 
and GEN options have been requested, the 
following action is taken (as applicable) : 

• F8P entry (type 100 records) - The 
left side of the print line buffer is 
loaded, and the entire buffer is dumped. 

• BLDIMG entry (type 110 or 111 records) - 
A source image is constructed and treated 
like a source record (type 010 or 011) , 
which is then processed like an edited 
record (type 100) . 

• COMMENT entry (type 000, 010, or 011 
records) - The previous right side of 
the print line buffer is printed (if 
still loaded) , and the information is 
put in the punch buffer. The right side 
of the print buffer is loaded with the 
current record. 

• COMMENT entry (type 001 record) - An 
error line is printed if the error 
indicator is on. 



• LOADRA entry (type 001 record) - The 
error record is reformatted to include 
the statement number , and an error 
indicator is turned on. 

F8P has the following functions (acronyms 
within parentheses refer to flowchart 
terms) : 

• Format left side (LOADLH) and right side 
(LOADRH) of print line and print entire 
line (CHKSWH) . 

• Format text output cards (GOTXT) and 
punch them (DUMP) . 

• Build source image from generated edited 
records (BLDIMG) . 

• Put title in page heading and put page 
heading for each new page (PGEHED) . 

• Reformat error record to include the 
statement number (WTERR) and print 
error line (LOADRERR) . 

• Space when SPACE is encountered and 
eject to a new page for EJECT and TITLE. 

• Format and print MNOTE message. 

• Punch REPRO and PUNCH cards. 



F8D - DC Evaluation (Flowcharts 34-35) 

Phase F8 mainline control calls F8D each 
time a DC, DS, or literal DC is encountered. 
The low order byte of register 13, at entry, 
is set as follows: 00 = DS, FF = DC, 
mixed = literal DC. 

F8D processes an entire DC statement 
each pass. The print routine, F8P, is 
called as many times as necessary. There 
is one DC work bucket (.15 bytes) in the 
appended fixed field for each operand in a 
statement, and each operand may contain 
one or more constants. See Figure B5. 
Exceptions are character, hexadecimal, and 
binary type DCs which may contain only one 
constant per operand. 

Relocation dictionary entries are made 
for A-, Y- , and V-type relocatable con- 
stants which meet minimum length specifica- 
tions. However, no relocation dictionary 
entries are made for address constants 
within a dummy section or common, nor for 
address constants whose operand address 
is within a dummy section. 

Upon completion of a statement, F8D 
returns to F8C. 
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F8N - Phase F8 Floating and Fixed-Point 
Conversion (Flowchart 36) 

This routine does all floating- and fixed- 
point conversion in declarative (DC) state- 
ments. It is called by the Phase.. F8 DC 
evaluation routine (F8D) once for each 
constant in a floating-point or fixed-point 
DC operand. At entry, Register No. 1 points 
to the first byte of the constant to be 
converted (the first byte past the left 
delimiter) , and Register No. 10 points to 
the corresponding DC work bucket in the 
edited text record. The DC work bucket 
contains the DC type, length modifier, 
scale factor, and external exponent modifier, 

After the conversion has been completed, 
program control is returned to F8D evalua- 
tion with three pointers: Register No. 1 
points to the right delimiter, Register 
No. 2 points to the converted value of the 
constant (eight bytes) , and Register No. 13 
points to an error flag. If Register No. 13 
is zero, no error has occurred. 



F8V - Expression Evaluation Subroutine 

This subroutine is the same as F7V with 
the exception of XREF, but the two are 
loaded separately in their respective 
phases. 



F8L - Log Error Subroutine 

This subroutine is the same as F7L, but 
the two are loaded separately in their 
respective phases. 



F8S - Symbol Table Subroutine 

This subroutine has one entry point, STGETR. 
This tests whether the requested symbol is 
in the table and, if so, gives the address 
of the first byte in the entry after the 
name field. If not, zero is returned. 
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PHASE FPP - POST PROCESSOR 



OVERALL OPERATION (FLOWCHARTS 37 AND 38) 

The Post Processor Phase, Phase FPP, is 
divided into two control sections which are 
executed serially. 

The first section, FPP, reads the RLD 
and cross-reference records from the over- 
flow file (SYS003) , sorts them, writes RLD 
on SYSPCH and/or SYSLNK and SYSLST and the 
XREF records on SYSLST. FPP also writes 
the END object card on SYSPCH and/or SYSLNK 
after the RLD. See Figure 11. In the event 
there are too many cross-reference record 
entries to be held in main storage at one 
time, SYS001 and SYS002 are used for sort- 
ing. 

The second section, FD, reads error 
records from the overflow, file (SYS003) and 
formats an error message by matching a code 
in the error record against a message table 
in main storage. FD also prints the sta- 
tistical information (statements flagged) , 
and returns to the DOS control program. 



FPP FUNCTIONS (FLOWCHART 37) 



FPP sorts the relocation dictionary 
entries by address. The sorted dictionary 
is written onto SYSLST and SYSPCH and/or 
SYSLNK. The loader END record is construct- 
ed and written onto SYSPCH. 

If the EXEC statement did not specify 
NOXREF, FPP sorts the cross-reference table 
entries by symbol. The sorted table is 
written on SYSLST. 

FPP branches to Section FD. 



FPP SUBROUTINES 



GTOX - Cross -Reference List Checker 

This routine checks for the cross-reference 
list Output option. 



READR - Relocation Dictionary Reader 

This routine reads the relocation dictionary 
records from input tape and stores them. 



FPP produces the relocation dictionary and 
the cross-reference list, if requested. 




Relocation Dictionary 
Cross reference 
Error 




Adjustment 
Table 



Main 
Storage 



Figure 11. I/O Flow for Phase FPP 



READX - Cross-Reference Reader 

This routine reads cross-reference records 
from input tape and stores them. 



SET0T1 - Relocation Dictionary Writer 

This routine writes all relocation dic- 
tionary data from main storage on SYSLST, 
SYSPCH, and/or SYSLNK. 



SET0T2 - Cross Reference Writer 

This routine writes all cross-reference 
data from main storage. 



WR1XRF - Cross-Reference Writer 

This routine writes cross-reference on 
SYS001 (or SYS002) for sorting. 



XRFLOD - Cross-Reference Starter 

This routine starts the cross-reference 
input pass. 



Phase FPP - Post Processor 
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Other FPP Subroutines 



FD SUBROUTINES 



• CHKSWH - Jump Table Sort 

• FPP - Phase Initialization (FPP) 

• EPRLZ - Merge Tape Writer 

• EP2 - Merge Tape Writer 

• ESORT - Input Data Sorter 

• GTOR - Control Table Reader 

• PPIN - Phase PP Initialization 

• RD1XRF - Cross-Reference Record Merger 

FD FUNCTIONS (FLOWCHART 38) 

The Phase FPP diagnostic, FD, reads the 
error records from the overflow file 
(SYS003) . Table lookup of error numbers 
is performed to find the corresponding 
error message. The statement number and 
message number are converted to printable 
format and listed with the 'error message on 
SYSLST. 

The functions of this phase are as 
follows : 

• Write diagnostic messages. 

• Accumulate and print the total number 

of error statements in the entire assem- 
bly. 

Before printing any error messages, a 
check is made to determine if any relo- 
catable Y-type constants have been used in 
the program. If any have been used, mes- 
sage 46 prints as a flag to the' programmer. 
The limited addressing capability of the 
Y-type constant, due to it being only two 
bytes long, could present problems if the 
program is run on a system with over 
65,536 bytes of storage. 

Following the flagging of Y-type con- 
stants , a check is made to determine if 
there are any error records to be flagged; 
if not, the word 'NO' is inserted into the 
"STATEMENTS FLAGGED. . . " message, this 
message is printed, and the phase returns 
to the caller. If there are error records 
to be flagged, each error statement number 
is listed with an appropriate message 
identifying the error. A total of the 
number of statements flagged is accumulated 
and printed. The phase exits to the DOS 
control program. 



FD 



FD locates the error block count,, tests the 
Y-type constant indicator, and if necessary, 
points to message 46 in preparation for 
printing the "AT LEAST ONE RELOCATABLE -Y 
TYPE CONSTANT. . . " message. If there are 
no relocatable Y-type constants in the pro- 
gram, it branches to MLOO. 



GETERR - Error Record Reader 



This routine reads error records. 



MLOO - Error Record Tester 

This routine tests if there are any error 
records to be processed. If there are no 
error records to be flagged, the "NO 
STATEMENTS FLAGGED. . ." message is built, 
then a branch to MLll occurs to list the 
message. If there are error records to 
be listed, this routine exits to ML01A. 



ML01 - Error Record Getter 

This routine gets the next error record. If 
the last error record has been read, a 
branch occurs to ML10. 



ML01A - Error Statement Getter 

This routine gets the error statement num- 
ber and accumulates an error statement 
total. 

ML01B - Error Statement Converter 

This routine converts the error statement 
number into decimal for listing and points 
to the appropriate error message. 

ML03 - Error Message Converter 

This routine converts the error message 
for listing and lists it. 

ML10 - Statement Printer 

This routine prints the total number of 
statements flagged. 

MLll - Error Message Lister 

This routine lists the error messages. 
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PHASE ABT (ASSEMBLER ABORT) 



This phase is entered when it is necessary 
to abort an assembly. An appropriate mes- 
sage is put out to SYSLST and SYSLOG and 
the run is terminated via EOJ. 

Two categories of problems force an 
abort: uncorrectable I/O errors and im- 
proper environment. The first entry is via 
the ERROPT and EOFADDR exits of the DTFs. 
It is recognized by the fact that General 
Register 15 contains a value (the DTF 
address) . In this case the offending unit 
is recognized by the unit code contained in 



the DTF. If this code is unrecognizable or 
is the code for SYSLST, the message is put 
out on SYSLOG only. 

If General Register 15 is zero on entry 
to the abort phase the problem is assumed 
to be improper environment. In all cases 
the run is terminated by EOJ and the 
remainder of the job is bypassed. 

General Registers 2 and 3 are assumed 
to contain up to 8 error codes of 1 byte 
each. A message is prepared for each 
code. 



Phase ABT (Assembler Abort) 41 



FLOWCHARTS 



•***A1 ********* 

* BALR FROM * 
» Fl, F2, OR F3 • 

• • 
*************** 



READ 
WRITE 

*****B1********* 

* SAVE 

* REGISTERS 
» 1+ THRU 1 

• 
**************** 



****C1********* 

POINT 

REGISTER 

1 TO DTF 

VECTOR 

*************** 



*****01******* 
» TEST AND SET* 

* HI ORDFR * 

* BYTES OF 

* DTF VECTOR * 

* * 
************** 



*****E 1 •****•*•• 

* POINT 

* RFGISTER I 

* TO DTF 

* 
**••••*•*****••• 



YES .* LAST *. 
...*. I/O CHECKED .» 
*. .* 



*•*••**•*•••• 



*****H1********* 

* RESTORE 

* REGISTER 

• TO ENTRY 

• VALUE 
• 
**************** 



•*****J1 *********** 
READ/WRITE 

DTP POINTED 
» TO BY REG 1 * 

•*••*•**•**** 



****A2********* 

• BALR FROM * 
» Fli F?. OR F3 * 

* * 
•***••••**•*•** 



SAVE 
REGISTERS 
14 THRU 1 

*************** 



****C2********* 

POINT 

REGISTER 

I TO DTF 

VECTOR 

*************** 



YES .* LAST 
...*. I/O 

*. CHECKED 



****E2******* 

SET « 

HI ORDER 

BIT OF 

VECTOR 

TO « 

***••*•*•*•*• 



•***F ?********* 

POINT 
REGISTER 
I TO DTF 

•***••**••***•• 



****A3********* 

* BALR FROM * 

* Fl, F2, OR F3 * 

* * 
*••**•••*••*•** 



POINTR X 

*****B3********** 
SA* 



***••*••••••*»•* 



****C3****»***« 

POINT 

REGISTERS 

I AND IS 

TO DTF 

VECTOR 

*************** 



****D3*»******* 

POINT 
REG 1 

TO DTF 

**•«*****»***** 



YES .* LAST 

...*. I/O 

«. CHECKE 



****f:3******* 
SET • 
HI ORDER * 
BIT OF « 
VECTOR * 
TO * 
************* 



*•**•**••••*• 



;****H2********** 
MOVE * 
PARAMETER 
LIST TO 
ALIGNED 
WORK AREA * 
***•*•**•*•**•** 



* DO I/O * 
***•**••**•** 



•*•********•* 



****A********** 

* BALR FROM » 

* Fl, F2, OR F3 * 

* • 
*•**•**•*•**••• 



SAVE * 

REGISTERS * 

14 TO 1 * 

* 
••***•*••**•*••* 



•***C4********* 

POINT 

REGISTERS 

1 AND IS 

TO DTF 

VECTOR 

*************** 



****04********* 



***••***•*•*••*: 



.* LAST ». 

I/O 

*. CHECKED .* 



****F4******* 

SET * 

HI ORDER 

BIT OF 

VECTOR 

TO • 

*•**••*••**•* 



•X. 



*•*•*•***•••* 



****H4********* 

MOVE 

PARAMETER 

LIST TO 

ALIGNED 



•***AS********* 

• BALR FROM • 

• Fl. F2, OR F3 * 

• • 
••**••«****•**• 



****B5********* 

SAVE 
REGISTERS 
14 THRU 

•*•*••*•**•*•** 



•***C 5* ******** 

POINT 

REGISTERS 

1 AND IS 

TO DTF 

VECTOR 

*************** 



**»*D5********* 

POINT 
REGISTER 
1 TO DTF 

*************** 



■ .* *• 
YES .* LAST *. 
...*. I/O .* 

*. CHECKED .* 



***«F5******* 

SET • 

HI OROER 

BIT OF 

VECTOR 

TO • 

************* 



•***••***•*** 



****** J3*********** 
POINTS 

* DC I/O * 
*•*****••**•• 



» DO I/O * 
••*•••**•***• 



************* 



•****jS********** 

* STORE * 

* NOTE VALUES * 

* AND • 

* RESTORE * 

* REGS 14-0 * 
••****••**••*•*** 



•***K2********* 

* * 

* RETURN * 

* • 
•****•**•***•** 



*****K3********* 




*****K5********** 




•***K4********* 


* POINT * 


* RESTORE 


* * 


» REGISTER 1 * 








• 14 THRU 1 


• • 


• SAVED * 




***•••****•**•* 


* VALUES * 


•••••********•** 




•**••*••••••*•**• 



Chart 1. MAC - Macro Generator I/O 
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*****£l********** 




» SET BASES » 


•***A2*** ****** 


* 1-COMREG * 


* ASSEMBLER 






• 13»C0MN0N * 


• 


• • 


*************** 


$$$«»*$**»*«**$** 




* 


•*•* 




• * 




* B2 *... 




* * . 


X 


**** X 


.*. 


.*. 


Bl *. 


B2 *. 


.* *. 


.* ALL *. 
NO .* UTILITY *. 


.* UTILITY *. 






*. ASSIGNED .* 


*. CHECKED .* 



3 *. 


******A************ 


ALL *. 


OPEN 


OATBL *. YES 


•-*-*-•-*-*-*-* * 


ENTRY .*.... 


CHECK 


USED . * 


* NON-DA * 


.* . 


UNITS 


*« «* X 


••••••••**••* 



OUTPUT *. YES 
OPTIONS .*... 
.SUPPORTED.* 



•••*•*•****•****• 



**** 

* * 

* B2 * 

* « 

•*•* 



«****D2********** 
* ABERR •* 
*-*-*-*-*-*-*-*-• 



***• 

* * 

* HI * 

* • 
**** 



• .* 
*. .* 

* NO 



*****F l********** 

• A8ERR * 
«_*-*-*-*-*-*-*—* 

• *. 
♦PRESET MSG 113 • 

• * 
*••*****•••*****• 



**** 

• * 

• K2 * 

• * 
**** 



**** 

• • 

• G2 * 

• • 
•*•* 



***************** 



DATBL 
DEVTAB 



.* 



B4 



*. 



*****C3********** 

* • 

* SAVE TRIAL * 

* SIZE * 

* VALUES * 

* * 
***************** 



VALID .* 

.* 
• .* 
* NO 



**•• 

* * 

* 82 * 

* * 
•*** 



*****F 2********** 

* ABERR * 
*-*-*-*-*-*-*-*-* 

* *.. 
♦PRESET MSG 115 * 

♦ * 
♦A*************** 

*♦♦* 

* * 

• G2 *... 

• * 

**** 



*****G1********** 

* * 

* MOVE * 
...» DEVICE CODE * 
. * TO DATBL * 
. * • 
X ***************** 

**•* 

* ***** 

* B2 * * 

* * HI «... 
••••* * . 

**** X 
.*. 



G2 



.*. 



*. 



.* OUTPUT 

UNITS 

*. VALID 



- *. 



**** 

* • 

* J2 * 

* * 
***• 



.* 



HI 



*. 



***************** 



.X* 



•****K !*♦****♦*** 

* OVFRLAY * 
CTFSD WITH * 

OTFMT - * 

PUT UNIT IN * 

* OPENC LIST * 
*•****•**•*•*••** 

I **** 



*****H2********** 

* ABERR * 
*-*-*-*-*-*-*-*-• 

* *. 
♦PRESET MSG 113 * 

* • 
***************** 



*****j 2********** 

* • 

* ENTER NON-OA • 

* UNITS IN * 

* OPENC LIST * 

* * 
***************** 



*•*• . 
X 
*****K2********** 

* CALC AVAIL * 

* CORE * 

* AND *X. 

* TRIAL SIZE * 

* BUFFER * 
***************** 



YES .♦ OEVTAB ♦. 
...*. LIST G.T. .*X.. 
*. TRAIL .* 



*****G3********** 



****•♦♦**••**•**• 



•****H3********** 

* ABERR * 
»-*-*-*-*-*-*-*-* 

X* *, 

♦PRESET MSG 112 * 

• * 
***•**•*•*••***** 



ANY 

ENTRIES 

IN ABORT 

LIST 
*. .* 
*. •* 
YES 



***** 

• 02 * 

• E4* 



IDENTIFY * 
ERROR * 
TYPE * 

* 
**************** 



****F4********* 

CALCULATE 

OFFENDING 
UNIT 

*************** 



****G4********** 
PLACE * 

ABORT CODE * 



**•**•••******** 



•***H4********* 

STEP 

ABORT 

LIST 

POINTER 

*************** 



****j ********** 

* RETURN * 

* TO CALLER * 

* * 
*************** 



*****K3** ******** 
•PICK AND STORE ♦ 

* SMALLEST OF » 

* 3SAVE0 * 

* SIZES AS * 

* FINAL SIZE * 
*•*******••**•*** 



.*-»-*-*-* • 



a************ 



*****B5* ******** 

* MPNTR 
*-*-*-*-»-*-*-*- 

* POINTS 

* SYSOOl TO 

* SYS003 
**************** 



•****C5********** 

* MHRITE * 
*-*-•-*-•-*-*_*-• 

* WRITE DUMMY * 

* REC SYSOOl TO * 

* SYS003 * 
***•*•*••******** 



•***DS********* 



*************** 



****E 5********** 

HASH OPCODES * 

IN GLOBAL • 

DICTIONARY * 

ANO CHAIN * 

SYNONYMS * 

**•••••**••**•** 



*****F 5********* 

* GETSRC 

* READ FIRST 

* SOURCE 

* STATEMENT 

*•*****••****••* 



.* 



.* 



H5 



.*. 



*. VALIO ICTL .*. 
*. 

*. .* 
*. .* 
* YES 



***** 

♦ 03 • 

* Al* 

* • 



J»C 



• ••*• 
•04 * 

* G2* 

* • 



****J5********* 

TABLE ICTL 
VALUES IN 
COMMON 

*************** 



READ 

NEXT 

STATEMENT 

*************** 



Chart 2. Fl - Phase Fl 



***** 

♦ 03 * 

* Al* 
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*«**A1 ********* 
t * 

* B FROM Fl » 

* « 
****••**••**•** 



DRIVER X 

*****A ?•*••***•*• 
•GFTSRC OAB3* 

*—*-*-*-*-*-*-*-* 
*REAO FM SYSIPT *X. 

* WRITE SOURCE * 

* ON SYSOOl * 
*•**••*•*****•••* 



•••• . 

DRtVRl X 

*****m *••••••**• 

* • 

* INITIALIZE * 

* FOR NEW * 

* STATEMENT * 

* • 
*•••**•*••*****•* 



•*B4******* 

* ENTDCT • 

**-*-*-*-*-*-** 

.X*ENTFR PP COOE. * 

IF ABSENT, UT3* 

N/P ADOR TO GD 

•••**•••*** 



**C1******* 

* GSCAN * 
**-*-*-*-*-*-•• 

*SCAN NAHF FIELD* 
•PUT INTO F.T.* 

* • 
**••*•*•*** 



**C3******* 

* ENTDCT * 
**-*-*-*-*-•-*• 

* FIND OR FNTER » 
* HP COOE IN » 

♦ GLOA. OICT.* 
*•**•***••• 



*****C4********** 

* ENTER SVSFCT, * 

* SYSNDX INTO * 
*TRAN DICT. CHECK* 

* FOR ILLEGAl * 

* NAME FIELD * 
**••*••••*••**•*• 



•*01******* 

* GSCAN * 
**-*-*-*-*-*-** 

♦SCAN OPERATION * 
*FLD PUT INTO « 

* E.T. * 
*********** 



**** 

* * 

* m * 

* * 
*•** 





03 *. 
• * *• 
YFS .* HAS *. 


**04******* 
* LOOKUP • 


X 

***** 
•04 * 
* Al* 

• • 
• 


*• •* 

*• .* 

*• •* 

•NO, MUST BE 
.MACRO INST. 


• (S.P.) INTO * 

•L.D. t E.T.* 

*•*•**••*** 










•*E3******* 

* SMTS01 * 

**-*-*-*-*-*-** 

•CHECK STATFHFNT* 

* SEQUENCING * 


••••*E4********** 

* SCAN * 
•EACH PARAMETER • 

• AND BUILD * 
•EDITED TEXT FOR* 



*********** 



*****F3********** 

* EDIT NAME * 
♦FIELD IF PRFS. « 

* FLSE INSFRT * 
♦NULL FIELD INTO* 

* OUTPUT * 
**••••••*•****•** 



♦*G3******* 

* NDSMT3 * 
**-*-*-*-*-*-** 

*WRITE F.T. FOR * 
* NAME FIELD * 

* * 
•••••*•**•* 



•****H3********** 

* EDIT OPERAND ♦ 

* FIELDS, CHECK * 
•FOR P.P. AFTER » 
•K.W.P.. IF ANY,* 

* OUTPUT ERRflR * 
*»*•••***•****•** 



**J3******* 

* MOVE IN * 

* LITTLE 'A' * 

• POINTFR TO * 

* FDITED TEXT * 

* RFCORD * 

*********** 



. * ANY *. 
* MORE 
PARAMETERS 



**•••••*••••••••* 



•*F ******** 

* FNTDCT * 

**-*-*—*-*-*—•* 

•ENTR IN L.D. IF* 

KEYWORD PUT STD 

VALUF IN E.T. 

*•••**•*•** 



.* ANY *. 
* MORE ♦. YES. 
PARAMETERS .♦, 



•*K4******* 

♦ NDSMT3 * 
*•-•-•-•-•-*-*• 

.X*OUTPUT E.T. FOR^. 
* END OF * 

• STATEMENT * 
•*••••**•** 



Chart 3. F2 - Phase F2 (1 of 5) 
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***** 
*04 * 
* HI* 



**&?******* 

* SHTS01 * 
*-*-*-*-*-*-** 

CHECK * 

STATEMENT * 

* SFQl'ENCF * 
*********** 



**A3******* 




* GSCAN * 




**-*-*-*-*-*-** 








* Ft FLO. PUT * 


X 


* INTO F.T. * 


***** 


*********** 


*07 * 



**B7******* 

* GSCAN * 
**_*_*_*_*_*_** 

.X* SCAN OPERAND * 
* FIELD * 

* * 
*********** 



**P3******* 

* LOOKUP * 
**-*-*-*-*-•-** 

. X* PUT OPERANDS 
•INTO G.n. OR * 

* L.O..RFSP * 
*********** 



***** 
*03 * 
* A2* 



.♦IS OP FIELD*. 

A SET 

♦.STATEMENT.* 



*****C3********** 
* INSFRT * 

♦VALUF INTO 
•X*TF S.D.~ 
•LITTLE 



*********** 



F.T. 



• T.» 

ELSE*. 
INTO* 



***************** 



***** 
*07 * 
* Bl* 



*****01 ********** 

* OENFPATE A * 

* BRANCH BASED * 

* UPON OP COOF * 

* AND RRANCH TO * 

* IT * 
***************** 



**F2******* 

* MFTSCN * 

**-*-*-*-*-*-** 


*****E3********** 

* LOrK * 

* FOR S.S. IN * 




* FIFLOS * 

• * 

*********** 


♦LITTLE 'A' INTO* 
* E.T. * 
***************** 


X 
***** 
♦07 * 



*****f 7********** 
•NEXT STATEMENT * 
*IS EXPrCTEO TO * 
TO PE A *. 

PROTOTYPE * 

* * 

•**•********••*•* 



• X* 



**-*-*-*-*-*-** 



*********** 



*****G3********** 

* * 

* END CARD * 
X* IMAGE INTO *. 

* INPUT RUFFEP * 

* * 
***************** 



***** 
*03 * 
* Bl* 



ARE WE « 

N A SYSTEM 

MACRO .« 



***** J ?********** 



*****H3********** 

* * 

* NOTE * 
X*PRESFNT SYSSLB *. 

* ADDRESS * 

* * 
***************** 



*****H4********** 

* * 

* SET INPUT * 
y* AS SYSSLB *. 
** IN GFTSRC * 

* * 
***************** 



. X* 



•****H 5* ********* 

* * 
FIND * 

C * 

♦(OPERAND FIELD)* 

* * 
***************** 



***** 
*03 * 
* Bl* 



* DEFINE MEW * 




* PARAMETERS IN * 
» GTSRC * 
***************** 


X 
***** 
*03 * 
* Bl* 



**K2******* 




* GTSRC 1 * 




**—*-*-*-*-*-•* 








♦PUT INTO E.T.* 


X 


♦ FORMAT ♦ 


***** 


*********** 


*07 * 




♦ HI* 



***** 
*os * 

* Al* 



Chart 4. F2 - Phase F2 (2 of 5) 
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••*•• 
*05 * 
• Al* 



**A2******* 

• GSCAN * 

.X* SCAN OPERAND * 
* FIELOS » 

• * 
*********** 



*****A3**** ****** 

* * 

* INDICATE * 
.X*POINT OF DEFIN.*. 

* FOR THE OICT. * 

* * 
•**•••***••****•* 



***** 
*04 * 
* A3* 



*****B ?•********* 



•***•*•*****•***• 



***** 
*<H * 
» A3* 



**D2******* 

* GSCAN * 
**-*-*-*-*-*-** 

.X* SCAN OPERAND • 
* FIELD * 

* * 
*********** 



* ARE 

WE IN OPEN 
*. CODE 



**-*—*—*—*-*-** 

* SCAN THE * 

* ATTRIBUTES * 

* * 

*********** 



•****E2********** 

• MOVE * 

• IN TYPEi * 
.X» LENGTH. SCALE *. 

• ATTRIBUTES * 

• * 
•••*••*•*•**•***• 



***** 
*OT • 

* ei* 



•••*• 

•O* * 
• A3* 



ANOP. TITLE. MNOTE. MEXIT. CNOP. 
DROP. USING. ORG. PRINT. SPACE. 
PUNCH. ENTRY. COX. EJECT. LTORG 



***** 
•07 * 
* Bl* 



.X* WRITE EDITED *. 

* TEXT FOR MEND * 

* CARD * 
•**••****•**••••* 



*****G3* ********* 

•BWFORC 06B5* 

*-*—*-»-♦—*-*-*-* 

.X*FORCE OUT EDITD*. 

* TEXT BLOCK ON * 

• SYS003 * 
•****•*•*•*•***•* 



***** 
*06 * 
• Bl* 



* ARE 

WE IN COPY 
*. MOOE 



► ARE WE * 

IN A SYSTEM 
►. MACRO .* 



•****j 5* ********* 

* * 

* POINT TC * 
K* PREVIOUSLY * 

* NOTED ADDRESS * 

* • 
•********•*•*•*** 



•****K2********** 

• • 

• INSERT * 
.X* SIMULATED END * 

•CARD IN BUFFER * 

• • 
*•*•*••*••••••*•* 



***************** 



*•***« 4*»******** 

* * 

* RESTORE * 
♦PREVIOUS INPUT * 

* DEVICE IN * 

* GET SRC * 
*******••******•• 



***** 
*03 * 
* A2* 



••••* 
*06 * 
* C2* 



***** 
*05 * 
* G2* 



***** 
*03 * 
* A2* 
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***** 
*06 * 
* Bl* 



***** 
*06 * 
* B3* 



***** 
*06 * 
* B4* 



***** 
•06 * 
* B5* 



DCLSF * 

*****B] ********** 

* SAVE N/P DF * 

* RECORD ON * 

* SYS002. WRITE * 
*nUT LAST BLOCK * 
*0F LOCAL OICT. * 
••******••*•***** 



***** 
*06 * 
* C2* 



* READ INPUT * 

* FROM SrSIPT * 

* OR SYSSLB * 

* * 
***************** 



•******•*******•• 



.* OOFS *. 
NO .*ROOM EXIST *. 
...*.IN BUFFER FOR. 

*, THIC _* 

•RECORD.*" 
*. .* 
« YES 



*****C 1 ********** 

* * 

* ZERO * 

* THE T.A. HASH * 

* TABLE * 

* • 
***•**•****•*•*** 



.♦ARE W<= *. 
.♦PROCESSING *. N 
.SYSTEM MACROS.*. 



**** 

*****C3********** 

•BWFORC, BWRITF * 

**—*-*-*-*-*-*—** 

,X*WRITE SO BYTES * 

* OF SOURCE ON * 

* SYS001 * 
****••**••***♦♦** 



...♦. BUFFER FULL .* 



****C5********* 

* * 

* BR RETURN » 
► • 

*************** 



*****m ♦♦♦♦♦♦♦♦** 

* SUBSET THE * 

* LOCAL * 
♦DICTIONARY JUST* 

* WRITTEN * 

* • 
***•**♦***♦**•**• 



*****03********** 

* CHECK * 

* FDR CONT. * 
♦CARDS. SEQUENCE* 

♦ NOS., ETC. ♦ 

♦ ♦ 
***************** 



******D4*********** 

WRITE 

**-*-*-*-*-*—*-** 

WRITE A BLOCK 

♦ON REQUESTED ♦ 

UTILITY 

♦***••******* 



.* WFRE WF *. YFS 
.EDITING PROG..^.... 
*. MACROS .* 



***** 

• 03 * 

* Bl* 



****p 3********* 

* * 

* BR RFTU«N * 

* 4 
*************** 



«#**E4********* 

* • 

* BR RETURN * 

* • 
*************** 



***** 
•06 * 
* F5* 



.* ANY *. 

.♦MACRO INS. * 
. ENCOUNTERED 



* GET NOTE OF * 

* CUR RE-NT ♦ 

♦ POSITION ♦ 

♦ ♦ 
♦•***•*******♦♦♦♦ 



♦♦♦♦♦Gl ********** 

* SET UP * 

* STANDARD ICTL * 

* PARAMS. SET * 
♦INPUT IN GTSRC * 

* TO SYSSLB * 
***************** 



****G5********* 

* 4 

* BR RETURN • 

* * 
••*********•*** 



IS MACRO 

INS N/P 

. ADDRESS . 

♦.ZERO .♦ 



* ANY 

MACRO INS. 
*. LEFT 



*****H3********** 

* SUBSFT O.C. * 

* DICTIONARY. * 
.X* SUBSET GLOBAL *. 

* DICTIONARY * 

* * 
***************>** 



*****H4********** 

* * 

* POINTS * 
•X*SYS001, SY00T2,* 

* AND SYS003 * 

* • 
***************** 



•♦♦**j I********** 

* * 

* FIND MACPO * 

* DEFINITION * 

* ON SYSSLB * 

* * 
***************** 



*****JA********** 

* * 

* CLOSE ♦ 

* SYSIPTAND ♦ 

* SYSSLB ♦ 

* ♦ 
***************** 



* WAS *. 
MACRO INS. . 
». FOUND .♦ 



•***K4********* 

* * 

* FETCH F3 * 

* * 
**•*****•****•* 



♦♦*** 
*03 * 
* B2* 
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ENDOPR X 

**B1******* 

* FOTCMT * 
**-*-*-*-*—*-* 

» EC IT COMMENT 
* FIELO 

* * 
****•*••*•* 



*****C1 ********** 

* SET END * 

* OF STATEMENT * 
♦FLAG. SUPPRESS * 

* OICT. LOOKUPS * 

* * 
•***•**•*•*•****• 



NDSMT3 X 




*****C1********** 




• * 




• * 




* 001 INTO UX *v.. 








* • 


***** 


••**•••••**•***** 


• 07 * 




* DI* 




* * 




• 



*****E2********** 



.X* 003 INTO UX 



***************** 



.* ARE *. 

.* LOOKUPS 
*. SUPPRESSED 



*****G1 ********** 
♦BWFCRC, BWRITE * 
»-*-*-*-*-*—*-*-* 

* HRITE E.T. ON * 

* SVS001 OR • 

* SVS003 • 
••********•*•***• 



• *• 

HI *. 

.* IS AN *. 

.♦ ERR REC • 

. PRES IN A 

♦.MACRO TO .* 

*.UX=3 •* 

*• .* 

* NO 



**-*-*-*-*—*-** 

,X*INSERT LITTLE A* 

♦INTO E.T. FRM* 

♦OPRNO LIST * 

••••**••**• 



•****H2********** 

* * 

* • 
X* 001 INTO UX *. 

* * 

* • 
ft*************** 



.* IS A 
RETURN 
*.EXPECTEO 



•***K1********* 

• • 

• BR LINK • 

• • 
*************** 



***** 

♦ 03 * 

* %?* 
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•08 * 
* Al» 

* * 



READ TEXT FILE X. 

* * 

************* 



*****A2********** 



•*•*••*******•••• 



****A3****.****« 

* * 

* FETCH F3 t 

* * 
*••••••*****•** 



* PROCESS * 
K* EDITED TEXT *. 

* RECORD * 

* • 
*••****••••••**•* 



SOURCE. ERROR 



•••••******«• 



* DETERMINE * 
•X*ADDRESS OF NAME*. 

* FIELD * 

* • 
***************** 



K* EVALUATE *... 

* OPERAND AND * 

* STORE RESULT * 
•*•***••*******•* 



•*****E3*********** 



CSECT. DSECT 



***************** 



************* 



I AIF 


AIFST 

*****F2********** 

• * 

* EVALUATE * 


.*. 
F3 *. 
.* *. 
.* IS *. NO 




* * 

* * 
••**•***•**•***** 


*. TRUE .* 

*. .* . 
*. .* X 

* YES **** 
. * * 
* Al * 

. * * 
. •*** 


I AGO 






AGCST X 

*****G3********** 

* • 

* * 










* FILE * 

* * 
*•*•••*•********• 


X 
• *•* 

* • 

* Al * 

* * 
**** 


I MEND. MEXIT 


MENDST .*. 

H2 *. 

.* *• 
.* EXIT * 


YES 


•****H3********** 
* SET TEXT * 






*. MACRO .* 
*. .* 

*. •* 
* NO 




* TO SYS001 * 

* * 
•*••••********•** 


X 


I MACRO INST. 


MINSTR 

****** J2*********** 

* WRITE * 


ENDMI 

*****J3*********» 

• * 

* 'NOTE' * 






* SYS002 * 


* TEXT * 





•*•**•••*•*** 



•*•****••*•****** 



•***K3********* 

* * * * 
.X*CLOSE OUT PHASE* X* FETCH F7 * 

* * * * 

* * •**•*»********* 
***••*•••****•*•• 



* TEXT FILE TO * 

C* READ *.... 

* DISCONTINUED * 

* TEXT * 
***************** X 



*****J4********** 

* POSITION TEXT * 

* FILE AT * 
X* BEGINNING OF *. 

* MACRO * 

* INSTRUCTION * 
***************** 



*****K4********** 



•••****••*•*•***• 



****** J 5* ********** 

* READ MACRO * 
.X DICTIONARY 
* SYS003 * 

************* 



******K5*********** 

REAO 

* EDITED * 

PROTOTYPE 

* STATEMENT * 

SYS003 

************* 
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•*••• 

•09 • 
• A3* 



••••Al *•*•••••* 

• • 

• ENTER VALUAT * 

• * 
•*•*••*••**••** 



VALUAT X 

*****B1********** 



* INITIALIZE 



•«••*•***•*****•• 



•••• 
•09 • 

• CI *.x 



•••• 
SYMBL • •• ■ 

CI *• 
.« IS *. 
.* INPUT PTR • . VES 

...*♦. 0UTSI0E .• 

•.OPERATOR .♦ X 

• ••RANGE.» ••••• 

• •• «• *11 • 
•••• • NO • Al* 

► CI * * 



***« 



CHFORC X 

•••••01 •**•**•«•• 

u B ra*JisE : 

• ON INPUT PTR • 

• AND BRANCH TO • 

• IT • 
•*«*♦**•***•*•*** 



•*A4 •*••*•• 
► ATT»A* * 
>-*-*-*-*-»-** 



•*•*•*•**** 



* CI • 



• STORE PAR AM. 
• X* FLAG TO 

• SIMULATE A 

• PARAMETER • 
••*•*•***•••••••• 



*.. 



»» nan «nu n'j. » 

• INTO POINTER ♦ 

• LIST • 

***************** 



•*(M ******* 



••••*••*••• 

**** 

t * 

» * 



***** 

•09 • 
• 65* 



* ADVANCE • 
.X* INPUT POINTER • 

• Br i • 

*• • 

•**•***•*•**•*••• 



OR 

AND 

OTHER 



••••• 

: *V fwce «••••. 

• • •• 

.• FORCE *. VES X 

....X*.LAST OPR, IN .* , 

X •.OPR. LIST.* 
• . .* 
*. .• 
* NO 



••*•* 
•09 • 
• 63* 



X 

• • •• 

.*_ IS OPR.__*. NO 



G5 



*. 



• » ia urn* •• 

.X*.IN OPR. LIST .* 

*. A COMMA .• 

*• •• 

*. •• 

• VES 



•***H3********* 



**••*•*••••***• 



*•••**•••*••****• 



.* IS FTRCEO •. NO 
.X*. OPS. A .*.... 
•.SUBSCRIPT.* 

•-..*.••• i 

* VES ••••• 



• 10 • 

* el* 



*****J3********** 



TIALIZE REG.* • INITIALIZE • 

IfeiiMl * x : ""win h :• 



• INI 

.X*6 M 

•OF 



••*****••*•**•*** 



******••*••*••••* 



* INCKFMENT • 

* IN»UT POINTER * 

* PAST < • 

* • 
*••******•***•••• 



.*• 

J* *. 
••IS THIS*. 
.*A SUBSCRIP-*. VES 
*. TEO SFT .*.... 
•.VARIABLE .* 
*. 



*. 



NO 



X 
•*••• 

• 10 • 

* Al* 



•*K******** 

» * 

GET VALUE 

FROM PA«»M. 

TABLE 

* * 

••****•***• 
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***** 

• 10 * 

* Al* 



•****Al ********** 



**•****•****••**« 



.». 

A3 *. 
.* IS *. 
.* IT A ♦. YES 

.X*. CHARACTER .* 

*. EXPR. .» X 
*. .* ••*•• 
*. .* *11 • 

* NO * E2* 

. * * 



***** 

• 10 * 

* B2* 



***** 

♦ 10 * 

* C2* 



* FETCH 
«* LENGTH OF 

* STRING 

* 

*****•*****•**•*: 



ETB3 .*. 

CZ *. 

.* IS *• 

.* IT A *. NO 

.X*. CHARACTER .*... 

*. EXPR. .* 

*. .* 

*. .* 

* YES 



**B3******* 

* INCPTR • 
**-*-*-*-*-*_** 

•INITIALIZE FOR *. 
* ENTRY • 

* • 
*********** 



•****B*********** 



.X* STORE RESULT *. 



•*C3******* 

* INCPTR * 

* *-*-*-*-*-*-*! 

.X*INITIALIZE FOR 
* FNTRY * 

* * 
*•*•*•••*•* 



***************** 



*****C4********** 



***** 

• 0<) * 

* CI* 



* X* STORE RESULT *. 



***** 

• 10 * 

* 02* 



***** 

♦ 10 * 

* El* 



META3 .*. 

02 *. 
.* IS *. 

.* IT A *. YES 

...X*. CHARACTER .*.... 

*. EXPR. .* 

*. .* 

*. .* 

* NO 



*****D3********** 



***************** 



META1 

**D4 ******* 

* AflCO * 

**-*-*-*-*-*-*• 

...X*CONVERT BINARY * 

* TP DECIMAL * 



X 
***** 
*09 * 
* CI* 



***************** 



*********** 



X 

***** 

• 11 * 

* F?* 



* PERFORM * 

* OPERATOR TEST * 

* AND BRANCH • 

* * 
*••***•****•***** 



ARITHMETIC 



META2 X 

•*E2******* 

* INCPTR * 
**-*-•-*-*-*-•* 

•INITIALIZE FOR *. 
* ENTRY * 

* * 
*********** 



*****F2********** 

* BRANCH * 

* ACCORDING TO * 
.X* SPECIFIC *. 

* OPFRATION * 



*****E3********** 

* STORE VALUE * 

* INTO * 
,X* INTERMEDIATE *. 

* RESULT * 

* * 
***•*•*•****•**** 



***** 
*09 * 
* CI* 



***************** 



*****G2********** 

* * 

* PROCESS * 
X* LOGICAL * 

* OPERATOR * 

* * 
***************** 



*****H2********** 

♦INITIALIZE RHG.* 
*6 WITH ADDRESS *. 
*0F STRING AREA * 
* 1 * 

***************** 



***** 
•09 * 
* G2* 



.X* 



♦FETCH CONDITION* 
CODE FOR » 
RELATIONAL * 
* OPERATOR * 
***************** 



•****K2********** 

* • 

* INCREMENT * 

* INTERMEDIATE * 
♦RESULT POINTER * 

* * 
***••*•********•• 



*****G4********* 



**************** 



***************** 



••••*•*******•*•* 



*****K4********* 



**••********•***: 



* st;>°s 

<* !?<=SULT IN 

* RFSULT I 1ST 
* 
**************** 



***** 
*09 * 
* CI* 



***** 
*M * 
* %?* 
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***** 

• 11 * 

• Al* 



OUTSIDE 
RANG* OF 
. FLAGS 



*****H I ********** 



•*•*•****•******* 



*****Cl*»*******< 
• 

* TFST 

* FLAGS AND 

* HRANCH 
* 
ft*************** 



SETEND X 

•****A2********** 

* SET END * 

* OF EXPRESSION * 
...X* FLAG IN * 

♦OPERATOR TABLE * 

* • 
***************** 



***** 
*09 * 



# 






X 














***** 




**•• 










•09 * 




* • 










* E5* 




* E2 * 










* • 




* • 




• 






* 




*••• 




• 




***** 






* 




# 




♦11 * 






# 








* E2* 


CHARST 


X 








* * 




•*E2******* 








• 




* 


PUTST * 






CHAR. 




**-* 


-*-*-*-*-** 












► STRING AREA * 




. 






» 


X 










* 


* 


***** 










*********** 


• 09 * 


• 












* CI* 




*****F2*********« 

* TRANSLATF * 

* CHARACTER * 
STRING TO * 

•ORIGINAL SET * 

* * 
****••*••**••***• 



.X* 



. 




DEC INT X 








•***•£?*••••***•* 






HEX-BINARV- 


• * 




• 


DECINAL 


• STORE ADDRESS * 




. 




* VALUE * 


X 






* * 


***** 






*•*••••*******••• 


♦09 * 


. 






* CI* 



*IETA 

•*H?*****«* 

* *ET!NT * 

*•-*-•-*-*-*-** 

...X*!NITIALIZE FOR • 

♦SET VARIABLE * 



*********** 



*ETfl 

**J2******* 
* ^TINT » 
•*-•-*-*-*-•-* 
...X*INITIALTZE FHR 
•SET VARIABLE 



***** 
MO * 
* D2» 



*********** 



*ETC 

**K2******* 

• IfTTNT • 

**-*-*-*-*-*-•* 

...X^INITIALI/ 1 : FOR 
•SET VARIABLE • 



*********** 



***** 

♦ 10 * 

* C2* 



***** 
•10 * 

* T>* 



BLANK 
TRUE ) 

C3««U 



• STORE • 
K* LENGTH OF •. 

• STRING * 

• • 
•*••••*••* ***** ** 



X 
***** 
•09 • 

• E5* 



SUBSTRING I 



•***••••••******• 



***** 
•09 • 

• E5* 



SUBSTRING I 




* SET SUBSTRING * 
X* C01HA OR LEFT *. 

* PAREN. SWITCH * 

* • 
••******•••*•***• 



**G4******* 

► ATTPAR • 
«-•-•-•-*-*-*• 

CHECK FOR • 
PARAMETER * 

► • 
•*••••••••• 



IATTBT 

**H******** 

* ATTPAR • 

•*-*-•-*-*-•-•• 

, ..X* CHECK FOR * 

• PARANFTER * 



***••*•*•** 



SATTBT 

•*J4******* 

* ATTPAR * 

**-*-*-*-*-•-•• 

...X* CHECK FOR * 

* PARAMETER * 



••••*•••*•• 



TATTRT 

**K4******* 

• ATTPAR • 
•*-•-•-•-*-*-•* 
...X» CHECK FOR « 
* »ARA»<ETER ♦ 



***••**•••* 



***** 
•11 • 
• J5* 



* STORE RFSULT • 
.X* A19RESS IN • 

* POINTER I 1ST • 

* • 
***************** 



***** 
•09 • 
• CI* 



X 
***** 

• 09 • 

• A3* 
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****A2********* 

* * 

* ENTER F3E * 

* * 
*************** 



READ SYS001 
* * 

************* 



************* 



*****E3********** 



*******•******< 



* ViRITE 

GENERATED END 
* ON SYS002 * 

************* 



•***G2********* 

* * 

* FETCH F7 * 

* * 
*************** 
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***** 1********* 

• * 

* ENTER FTC * 

> 4 

*************** 



***** 

*13 * 
* B2* 



*****gl******* 

• INITIALIZE * 

• PROGRAM FOR * 

• XREF AND 

• AUTOTEST * 

• OPTIONS * 
************** 



**B2******* 

* F7N * 
-*-*-*-*-*-*-*- 

* PUT AUTO » 
* TEST RECORD * 

* ( OPTION 1 * 
*********** 



*-*-*-*—*—♦-*-*—* 
K* GET NEXT *X.. 

EDITED 





» RECORD * 
***************** 


••*•• 
»I3 * 
* 02* 

♦ * 
• 


X 
AC3 .*. 

D2 ♦ . 

.* *. 

.* *. 



SUBSTITUTION NODE 



* ASSIGNMENT MODE 



***** 
*15 * 
* A3* 



TEST 

TYPE OF 

.OPERATION. 



ASSEMBLER OP. 



* MACHINE OP. 



• *—•—*-*-*-*—• 

* INITIATE PRI- 

*VATE CODE IF 

» ESD * « 
*********** 



MOP! X 

*****G2********** 
* SVHF * 

*-*-*-*-*-*-*-*-* 



* TEST FOR POS- * 

* SIBLE SYM TBL * 

* OVERFLOW * 
•*•••*•***•****** 



**E4******* 

* UPC * 

**-*-*—*-*-*-** 

.X*INIT. PVT. CODE* 

*IF ASCIBIT 01* 

*»1. ESD = 0* 

*********** 



A0P1 

•****F4********** 
* SYMF * 



♦TEST POSS. SYM * 

* TBL 0»FLOW IF * 

* ASCIBIT1)=1 * 

***************** 



10P2 X 

*****G4********** 

* PASS * 

* LOCATION * 
♦COUNTER IN TEXT* 
♦IF ASCIBIT 2) =* 

* 1 * 
••****•***•****** 



***** 

♦ 14 ♦ 

* A3* 



**F5******* 

* suewB * 

**-*-*-*-*-*-** 
* SUBSTITUTE * 
* SYMBOL 1.0RK * 

* BUCKETi * 
*********** 



*—*-*-*-*-*-♦-*- 
.X* MAKE LITERAL * 
♦ENTRY IN SYMBOL* 
♦ TABLE * 

♦♦*•••***••****•* 



**-*-*-*-*-*-** 

♦GENERATE X-REF • 

♦IF ASCIBIT 31* 

♦=] IOPT10N)* 

•*•**•**♦♦* 



♦GENERATE X-REF *X. 

* RECORDS * 

* I0PTION1 * 

•♦•**••*•** 



* COMPUTE * 

* LENGTH FROM * 
♦OPERATION CODE ♦ 

* ♦ 
*♦♦♦♦****♦♦♦•*•** 



***** 

• 1* * 

♦ A3^ 



♦♦♦♦♦ 

♦ 13 * 

♦ J5^ 



-*-♦-*-*- 



*•*•****••**•**** 



NAMF 
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•****••*•**•••**• 
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»*»»A1»******** 

* • 

* ENTER F7E * 

* * 
•••••♦•••*•**•* 



*****A2********** 

* • 

* CREATE * 
X* PC TYPE ESQ *. 

* ENTRY * 

* * 



****A3********* 

* 4 

» RETURN 4 

* 4 
*************** 



****A4********* 

• * 

• ENTER F7E » 

• • 
*************** 



****A5********* 

* * 

* ENTER F7E * 

* * 
*************** 



•****B2********** 



START 

****B1********* 

* * * » 

* ENTER F7E ».. X* SET CSTVAL * 

* * * * 
a************** * * 

***************** 



*****B4********** 

* * 
♦FETCH ESD ITFH « 

* EQQ rijOBFNT • 

* SECTION * 

* * 
***************** 



•****B5********** 

* • 

* FETCH ESD » 

* ITEM FOR LAST * 

* SECTION * 

* • 
**•*•*•**•**•***• 



****C I********* 
► • 

* ENTER F7E * 

• • 
*•*•**•••**•*•* 



•****C4********** 

* UPDATE * 

* LOCATION * 

* COUNTER AND * 
♦LENGTH FOR ESD * 

* ITEM ♦ 
**••**♦*•*••**•** 



****•£ 5********** 

* * 

* UPDATE ♦ 

* LENGTH OF ESD ♦ 

* ITEM * 

* * 
***************** 



csect 

****0 i********* 

* • 

♦ FNTER F7E • 

• • 
**•**••**•*•*** 



****D4********* 

* * 

* RETURN ♦ 

* * 
*•*•••*******•* 



****D5********* 

* • 

* RETURN * 

* * 
*************** 



DSECT 

****E1********* 

* * 

* ENTER F7F ♦ 

* • 
*************** 



*****E2********»* 

* UPDATE ♦ 
LENGTH OF * 
PREVIOUS * 

♦CONTROL SECTION^ 

• • 
*••••****•*****•* 



.X* 



*****F3********** 



***************** 



ESWBKR 

****F5********* 

* * 

* ENTER F7E « 

* * 
•*•******••**** 



*****G ?*******•** 

* * 
♦CREATF NEW ESD ♦ 

♦ AND SYMBOL ♦. 

♦ TABLE ENTRIES ♦ 

• • 
***•*•****•*•**** 



♦ 4 

♦ SET 4 
X* CTYPE AND 4 

♦ CESOID 4 

*•***********•••* 



****G4*«M«« 

• * 
» RETURN * 

* * 
*************** 



DUPLICATE 

NAME OR 

. SYMBOL . 

♦. TABLE. ♦ 



****H3*4******* 

• 4 

• RETURN 4 

• 4 
*•*•**•**•***•* 



*****H5********** 

* * 

* SET ♦ 

* TEXT WORK ♦ 

* BUCKET * 

* * 
***************** 



****J5********* 

* * 

* RETURN 4 

* * 
••*•*•*•**•**•• 
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* > 

* ENTER F7E * 

* * 
*************** 



»****C3*****»***« 



***************** 



*****03*********t 



***************** 



****E3»*+*««*«* 
* * 

*• RETURN » 
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*************** 



•********••*••• 



*****B 1********** 



•****B2********** 



•SET GET SWITCH * X* 



**••*•••**•••**•• 



**»**«**»*»*♦«*•* 



•****C4********** 

* * 

♦ MAKE » 
K* TYP1 CROSS » 

* REFERENCE • 

• * 
***************** 



*****D2*** ******* 

• • 

• FIND LOCATION * 

• FOR SYMBOL IN * 

• SYMBOL TABLE * 

• * 
•*•*****••******* 



*. OCCUPIED .*. 



•***Ft********* 

* RETURN » 

* "NOT FOUND' * 

* * 
*****••****«•** 



*****F3********** 



•***F4********* 



* CHANGE * 
♦CROSS REFERENCE* X*RETURN <FOUNOI * 

* TO TYPE 3 * * * 

* * •***•*****•**** 
*••••********••** 



* MAKE * 

* SYMBOL TABLE * 

* ENTRY * 

* * 
***************** 



*************** 



.* WILL ESO 
. .X*. OVERLAY 
*. SYMBOL 
♦.TABLE.* 



.♦THERE ROOM *. NO 

.X*.FOR 2 ESD SEG.* X*. 

♦.AND SYM. .* 
♦.TABLE.* 



.♦ *. ****H5****«**» 

►IS *. NO * . * 

IT ESD CALL .* X*ABNQRMAL RETURN* 

►. .* * * 

*. .* *************** 



****J2********* 

* * 

* NORMAL RETURN * 

* * 
*•*•***•♦♦**••* 



***** J3********* * 

* * 

* OVERFLOW * 
♦EXTERNAL SYMBOL* 

♦ DICTIONARY * 

♦ * 
*•***•••••******* 



•***K3********* 

♦ * 

♦ NORMAL RETURN * 

♦ * 
•***•*♦******** 
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*************** 



»****B3********** 

* * 

* REGISTER SP1 * 
•POINTS TO FIRST* 

* CHARACTER * 

* * 
•••••••*••******* 

•••* I 

* * . 

* C3 *.x. 

* * 

***• X 



C3 



*. 



.* *. OPERATOR .* CHARACTER *. TERM .* *. 

..*. COMPUTED GO .*X *. OPERATOR OR .* X*. COMPUTED GO .* 

• • TO .* *. TERM .* *. TO .* 



SELF-OEFINING 



•****0 2* **•••*••* 

* BLCOM * 
«- * ■ » - »-♦—«- « ., * * 

.X* OPERATION IS * 
•BLANK OR COMMA * 

* * 
•**••***•*•****•* 



****»E2*****»***« 

• FINIS • 
*-*-*-•-»-•-•-•-• 
•RESULT IN SP2. *X. 
•COND. CODE SET • 

• TO EXP. TYPE * 
***************** 



•***F 2********* 

* RETURN * 

* TO CALLING * 

* ROUTINE • 
•••••*•***••*•• 



*****G?********* 

• LPAR 

* « » -»-«-*- *, *■ 

OPERATOR IS 
LEFT PAREN. 



*****D3********** 
SDVCF * 
-*-*-*-*-*-» 



. SYMBOL 
X 

*****D4********** 



BOL 



****•*•**••*••*** 



SYMBOL WORK 



•*•••**•*•**•**** 



• SYMBOL TABLE * 

• FOR LENGTH ♦ 
•••****•**•**•••* 



YES .* SELF- *. 
......DEFINING BIT .* 

*. ON .* 



•CROSS-REFERENCE* 
* * 

***************** 



.X* 



**************** 



.* *. ***• 

.* END *. NO * * 
,X*.OF EXPRESSION.*... .X* C3 • 



•****F4********** 

* BUMP * 

* POINTER TO * 

* CHARACTER • 
•FOLLOWING TERM * 

* * 
•*••••••*•••••*•• 



• ••* 

* • 

* C3. • 

* • 
*••• 



*****H2*********i 


1 *****H3********** 


• RPAR 


* LOOP « 


*-*-*-*-*-«-*-*-: 


*-*-*-*-*-*-♦-*-» 


* OPERATOR IS < 

* RIGHT PAREN. < 


* PERFORN * 


• 


> * ARITHMETIC » 

I •*****•*••*•••*•• 


***•*•**•••*•*•* 



.X* 



*****J2********* 

* LTCOM 
*-*-*-*-*-*.*.*- 

OPERATOR IS 

* PLUS SIGN. -, 



* *. OR / 
••******•*****•* 



.* IS *. YES 
*. OPERATOR AN .*.... 
•.ASTERISK .* 
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****A3********* 

* * 

* ENTER F7L « 

* * 



* CALCULATE « 

* RELATIVE PTR. * 

* TO ERROR IN » 
*OPRNO (OR ZERO)* 

»♦♦♦♦♦♦*♦♦***»*•* 



ERROR *. VES 

"CORO "- 
CORE 



***«*D3********** 

* INITIALIZE * 

*ERROR RECORD IN* 

* CORE * 

* • 
**•♦♦•**♦♦*♦*♦♦♦» 



E3 *. 
.* IS «. 

.* ERROR «. NO 
. RECORO ON .*... 
♦ .TEXT FILE.* 
*. .* 
*. .* 
* YES 



MOVE ERROR 

► RECORO TO « 

♦BUILD AREA * 

**••***♦*♦♦ 



•****(;3***»*****« 

* ♦ 
♦ATTACH CURRENT « 

* ERROR MESSAGE * 
♦TO ERROR RECORO* 

* * 
♦*•♦♦♦♦♦♦******♦* 



**** H 3*«******* 

* RETURN * 

* TO CALLING * 

* ROUTINE * 
*♦♦♦♦*♦♦♦♦♦♦**♦ 
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«»••«?•*•*••••* 

» • 

* ENTER F7G * 

t • 



•****B2********** 

* /FRO * 
•STRING COUNTER.* 
•INIT. PTRS. TO * 

* LIT. OC AREA * 

* AND IEUF7S • 



*****C2********** 

* GET PTR * 
•TO NEXT LITERAL* 

* IN CHAIN FOR * 

* THAT COUNTER • 

* VALUE * 
••a************** 



.* IS PTR *. YES 
*.ZERO (END OF .*.... 
*. CHAINI .* 



.X* 



*****03*** ******* 
•ADO 1 TO STRING* 

* COUNTER. * 
PREPARE TC *. 

* CHECK THAT « 

* CHAIN * 
•***•••**•***••*• 



.* HAVE FOUR *. 

.X*. CHAINS BEEN .* 

•.PROCESSEO.* 



*••••£?*•*••••*** 

* * 

* MOVE LITERAL * 

* FROM SOURCE * 

* RECORD INTO * 

* TFXT * 
•*•••••**••••**•• 



* * 

* RETURN « 

* * 
•*•••*•*»**•*** 



***»*F ?««••»***«« 



• FIELDS KITH * 



•****G2********** 

* SET LAST * 

* OPERAND * 

* INOICATOR * 

•*•**••*•••••**•* 



•••••H2********** 

* MOVE IN LQC. * 

* cTr. if IT Is * 

* LITERAL TABLE • 

* ENTRY. RESET * 

* SfclTCH * 
•••*••**••••*•••• 



•****J2********** 

• • 

• MOVE IN * 

• FIXEO PART OF » 

• RECORD • 

• * 
••*••*•••••••*••* 



•****K2********** 

• • 

* POINT BACK * 
•TO BEGINNING OF*. 

• RECORO • 

* * 
**••••••*••••*•*• 



****K3********* 

* * 

* RETURN * 

* • 
•***•**•*•***** 
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****A2********* 

* * 

* ENTER FI » 

* * 
*************** 



*. FSO IN CORE .* X GET ESO 

*. .* • * 

*. .* 

*. .* *****•****•*• 



*****C2*********» 
» * 

* BUILD * 

* ADJUSTMENT * 

* TABLE * 

* * 
***************** 



LIST ESD 

AND OUTPUT 

* ESO CARDS * 

************* 



•*****£ 2*********** 

USE LITERAL 

* BASE TABLE TC * 

BUILD LITERAL 

* ADJUSTMENT * 

TABLE 

************* 



*************** 
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•***A1********» 

• * 

• ENTER F8C * 

• * 
*************** 



*****A?**«******* 

* F8NTRY * 
*-*-*-*-*-*-*-*-* 

.X*INITIALIZE FOR * 

* EACH RECORD * 

* * 
»****«**»*♦»»**»* 



» ERROR 

PROCESSING 
*. NEEDED . 



******B3*** ******** 

ERL008 

*-*-*-*-*—*-*-*-* 

.X GET ERROR 

* RECORD * 

************* 



•—•-•-*—*—•-*-• 

INPUT 

* NEXT * 

RECORD 

************* 



.*. 

02 *. ******D3*********** 

.* WAS *. ENDOFF 

.* THERE *. NO **_*_*_*_♦_*_*-** 

ANOTHER .* X COMPLETE RECORD .. 

*. RECORD .* * PROCESSING * 



***»*E1********** 

• COMMENT * 
«—♦-«-«-« * * *.. ♦ 

* SET 

• IN PRINT LINE * 

* • 
***************** 



• **• 

* * 

* E2 *.X. 

* * 

**** X 
.* 
E2 



*X. 



************* 



•****E3********** 

* BLDIHG (F8P) * 
PARTLY *-*-*-*-*-*-*-*-* 

X* PRINT ROUTINE * 

* BUILDS IMAGE * 

* * 
***************** 



****D4********* 

* • 

* EXIT TO FPP « 

* • 
*************** 



* SET PTRS TO WRK* 

* BCKT AND »PP. * 

* FIXED FIELD * 
***************** 



* ALIGNMENT *. 
NEEDED THIS . 
♦.STATEMENT.* 



•****G3********** 

* SRLIGN • 
*-*-*-*-*-*-*-*-* 

DO ANY * 
ALIGNMENT » 

* NEEDED * 
***************** 



.X* 



.*IS THIS*. 
.* AN *. NO 
. ASSEMBLER .*... 
♦.OPERATOR .* 



*****J2********** 
*FBA 31A2* 
*—•-*-•-•-*-•—*—* 

* PROCESS * 

* ASSEMBLER * 

* INSTRUCTIONS * 
*•**••**•*•*•**** 



****** ?********** 
*F8P 32A3* 
*-*-*-*-*-*-*-*-* 

* OUTPUT * 

* ROUTINE ♦ 

* * 
•**•*******••••** 



•****J3********** 
*F8M 30A2* 
*-*-•-•-*-*-*-*-* 

* PROCESS * 

* MACHINE * 

* INSTRUCTIONS » 
•*****•***•*•**** 
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«***A 3* ******** 

* * 

* ENTER F8M » 

* * 
*************** 



*****f!3**** ****** 

•INITIALIZE FOR * 

* MACHINE * 

* OPERATION * 

* PROCESSING * 
****•****•***•**• 



•****C3********** 

* ARRANGE BITS * 

* FOR COMPUTED • 

* BRANCH * 

***************** 



*****D3********* 
* 

* BRANCH PER 

* INSTRUCTION 

* FORMAT I SEE 

* NOTE I 
•ft************* 



*****E3********* 

* PROCESS TYPF 

* INSTRUCTION 

* ACCOROING TO 

* BRANCH (SEE 

* NOTE) 
**************** 



****F3********* 

* • 

* RETURN TO F8C * 

* * 
*************** 



NOTE - 








F8M BRANCHES 


ARE 


TO 


THE FOLLOWING LABELS 


RRlt 


RR2, 


RR3, 


PR* 


RXlt 


RX2 






RSI, 


RS2 






SI3. 


SI4 






SSI, 


SS2 
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► * 
• ENTER FRA * 

► * 
*************** 



*****B2********** 

* * 
♦SET CONDITIONS * 

* FOR COMPUTED * 

* BRANCH * 

* * 
***************** 



SHOULD *. MO 
PHASE F8 .*... 
. PROCESS .* 
♦.THIS .♦ 



****C3********* 

* » 
• X* RFTURN TD F8C * 

* * 
*************** 



*****0 2********** 



NOTE - 

F8A ASSEMBLER OPERATIONS AND 
PROCESSES TO Bf PERFORMED ARE 
AS FGLLOWS - 



****F1 ********* 

• * 

• RETURN Tfl F8D ♦X 

• • 
*************** 



♦ BRANCH PER ♦ 


************************************** 


♦ ASSEMBLER ♦ 


* 






* 


♦OPERATION (SEE ♦ 


* 


LABEL 


PROCESS 


* 


* NOTE) ♦ 


* 






* 


***************** 


************************************ 


* 
* 




* 


MNOTST 


SFT PNOTE FLAG 




* 


PRINTB 


SET PRINT FLAGS 


* 




* 


SPACE 


SET SPACE FLAG 


* 




* 


EJECT 


SET EJECT FLAG 


* 




* 


PUNCHB 


SET PUNCH BIT 




X 


* 


REPRO 


SET REPRO BITS 


* 


*****E2**»******» 


* 


TITLES 


SET TITLE elTS 


* 


* * 


* 


ENTRYB 


PROCESS ENTRY OPERAND 


* 


* PERFORM * 


* 


EXTRNB 


RETURN CONTROL TO IEUF8C 


* 


* INDICATED ♦ 




STARTB 


PROCESS START STATFMENT 


* 


♦ PROCESS (SEE ♦ 


* 


CSECTB 


PROCESS CSECT STATEMENT 


* 


♦ NOTE ) ♦ 


* 


OSECTB 


PROCESS DSFCT 


* 


***************** 


* 


COMB 


PROCESS COM 






* 


EOUB 


PROCESS EQU 


* 




* 


CRGB 


PRCCESS ORG 


* 




* 


ENOB 


PROCESS END 


* 




* 


LTORGB 


PROCESS LTORG 


* 




* 


USINGB 


PROCESS USING 


* 


X 


* 


DROPB 


PROCESS DROP 


* 


.♦. 




CCWB 


PROCESS CCW 


* 


F2 *. 




LITERB 


SET LITERAL SWITCH 




.♦ ♦. 


* 


DSB 


SET OS SWITCH 


* 


YES .♦HAS BRANCH ♦. 


* 


DCB 


SET DC SWITCH 


* 




* 






* 


♦.OSR. DCB .♦ 


* 






* 


♦ . .♦ 


* 






* 


♦ . .♦ 


************************************** 


♦ NO 











****G2********* 

♦ • 

♦ RETURN TO F8C ♦ 

♦ ♦ 
***••*•*******• 
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****43********* 

* * ENTRY FOR EDITED 

* ENTER F8P « RECORDS 

* * 
*************** 



63 *. »****(<4********** 

.* *. * * 

.* PUNCH, *. NG * MOVE LEFT * 

♦.REPRC. HNOTE..* X*SICE FOR PRINT *. 

*. TITLE .* « AND PUNCH * 



• •*• . 
*3Z * 

* C3 *.X. 



***************** 



***** 
*33 * 
* B3* 



*****C2********** 



»****C *********** 



HOVE MNOTE * 


HNOTE .* *. 

*. TO .* 

*. .» 
*. .* 

* PUNCH, 
. REPRO 


TITLE 


* MOVE * 




PRINT AREA * 

• 

************** 


* HEADING LINE * 

* * 
»•******••******* 


X 

***** 

*33 * 

* B3* 

* * 



***** 
*33 * 
* G4* 



D3 *. *****P4********** 

.* *. * CHKSWH * 

• PUNCH *. REPRO «-*-*_*-*-*-*-*-* 

OR REPRO .* X* PRINT 'REPRO 1 * 

* REPRO LINE * 



,* 



.* 



***************** 



* 

• ENTER F8P- 

* 4 
**•*••••****•** 



* MOVE * 
•RIGHT SIDE FOR * 

* PRINT * 

* • 
*•**••*******•*** 



****E3********* 

DUMP 

-*—*-*-*—*-*-*- 

DUMP PUNCH 

BUFFER IF 

NEEDED 

*************** 



******F3*********** 

SYSO <F8I» 

*-*-*-*-*-*-*—* * 

PUNCH CARD FOR 

* PUNCH/REPRC * 

************* 



****G3********* 

* * 

* EXIT * 

* * 
*************** 



****G4********* 

* * 

* ENTER F8P * 

* * 
*************** 



.* TITLE, * 

*. REPRO, PUNCH, 

*. HNOTE .* 



****»J4********** 

* * 

* CONSTRUCT * 
♦RIGHT SIDE FOR * 

* PRINT * 

* * 
***************** 



***** 
*33 * 
* B3* 



****J5********* 

* * 

* EXIT * 

* * 
*************** 
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***** 
*33 * 
* B3* 



*****B4********** 

* * 

* SAVE * 
K* ACCUMULATED *. 

* SPACE COUNT * 

* * 
***************** 



****B5********* 

* * 
» EXIT * 

* * 
*************** 



*****C4********** 

* PHEHEQ * 
*-*-*-*-*.*-*-*-* 

.X* EJECT TO NEW *. 

* PAGE * 

* • 
*•*••**•*****•*•• 



****C5********» 

* * 

* EXIT « 

* * 
*****•*•**•*•** 



*****02********** 

* LOAOLH * 
*-*-*-*-*-*-*-*-* 
♦MOVE LEFT SIDE *X. 

* TO PRINT LINF * 

* * 
*•*•***•*••**•*** 



.*. RECORO TYPE 



*****04********** 

* CHKSWH * 
*_*_*_*_*_*_*_*_* 

.X* PRINT LINE IF * 

* ONE IN BUFFER * 

* * 
***•*••****••••** 



*—•-•-•-•-•-•-*—* 
* PRINT LINE ♦ 



*•***********••*• 



*****E3***» ****** 

* • 

* INSERT * 

* STATEMENT NO. « 
•IN ERROR RECORO* 

* * 
***************** 



*****E4********** 

* LOADRERR * 
*-*-*-*-*-*-*-*-* 

* PRINT ERROR ♦ 

* LINE IF * 

* NEEDED * 
**••*••*•*****••• 



•—•-•-*-•-•-*-*-* 



•••••••***•****•• 



******F3*********** 

HTERR (FBI) 

*-*-*-*-*-*-*-» * 

PUT ERROR 

* RECORD IN * 

TEST STREAM 

•*•••••*•**** 



***** 

• 32 * 

* C3* 



**•*(;?•*••*•••* 

* * 

• EXIT * 
» * 

•••*•*•••*•**•* 



****G3********* 

* * 

* EXIT » 

* * 
•*••*•***•*•*»* 



*-*-*-*-*_•-•-*_* 



*•*•••*•*••***••* 



****H4********* 

* * 

* EXIT « 

* • 
*************** 
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***** 
*34 * 

* A3* 



****/U ********* 

• * 

• ENTER F8D * 

• * 
*************** 



»***»B1********** 

* • 

* SET OUTPUT * 
•POINTER TO DATA* 

* AREA • 

* • 
****••*•*•*****•• 



•****C1********* 

* FETCH 

* CURRENT 

* LOCATION 

* COUNTER 
* 
**************** 



*****A4********** 



*****El********** 

* • 

* FETCH POINTER * 

* TO FIRST DC * 

* WORK BUCKET * 

* * 
***************** 



.* *. YES 

♦.ERROR BIT SET.*.... 



•***G 1 ********* 

STORE 
DC/OS/LIT 
INOICATOR 

*************** 



•****H1********** 

• * 

• ALIGN OATA * 

• FRO* DC WORK * 

• BUCKET * 

• * 
***************** 



***** 
*34 * 
* FZ* 



..X*. BIT LENGTH 
*. . 

. *. .* 

i *. .* 
**** * NO 

* * 

* A3 * I 

* ♦ . 
*••* . 



YES .* *. 

...•.FIRST OPERAND.* 
*. .* 



NO .*LAST OUTPUT*. 

,..*. BYTE NEED . 

*. FILLING .* 



»****C3********* 
* 

* FILL 

* LAST OUTPUT 

* BYTE 
* 
**************** 



*****E3********** 
•*** * * 

* * * CONVERT * 

* E3 *....X*BYTE LENGTH TO * 

* * * BIT LENGTH * 
**** * * 

•*•****•**•***•** 



* PROCESS DC BY * 


....* 


ALIGNMENT .* 


* TYPE * 




*. NEEDED .* 


* * 




*. .* 


•*•****••*****•** 




*. .* 

* NO 

**** 

• * * 
..X* A3 * 

* * 


X 




**** 


.*. 




.*. 


84 ». 




BS *. 


.* *. 




.♦ *. 


.* DS *. YES 




•LAST OUTPUT*. NO 


*. INSTRUCTION .*.... 


i.X* 


BYTE NEED .*.. 


*. .* . 




*. FILLING .* 



*****C4********** 

* • 

* DECREMENT * 

* DUPLICATION * 

* FACTOR BY 1 • 

* * 
***************** 



INSTRUCTION 


.*.... . 


. .* 




*. .* 




*. .* 


X 


* NO 


*••*• 




*35 * 


• 


* Bl* 



••** . 

X 

*****FZ********* 

* BYTE 

* COUNT TO 

* OUTPUT 

* BUFFER 
• 
**************** 



*****G2********** 
•TSBPRT 3?B5* 

* PRINT » 

* ONE • 

* LINE * 
***************** 



*****H2********** 

* MOVE * 

* CURRENT * 

* LOCATION * 

* COUNTER TO * 

* CENTRAL TABLE « 
•**•••****•*•**** 



****J2********* 

• * 
..X* EXIT TO F8C » 

• • 
••**********••* 



Kl *. *****K2***«****** 

.* *. * • 

.* *. YES * OUTPUT * 

*. ALIGNMENT .* X*ALIGNMENT BYTES* 

*. NEEDED .* * * 



*. .* 

* NO 
. *•*• 
. * * 
..X* A3 * 

* * 

**•* 



•******••••*•*•** 

1 **** 
. * * 

..X* A3 * 

• * 
**** 



.* DUP- *. 
YES .* FACTOR 
...*. INITIALLY 
*. ZERO 



*****G3********** 

* * 

* SET * 

* FIRST OPERAND » 

* SWITCH * 

* * 
*•*••*••*****•*** 



****H3********* 

COMPUTE 

NEW BIT 

REMAINOER 

*************** 



•****J3*** ******* 



***************** 



•****IO********** 

* COMPUTE * 

* POINTER TO * 
♦FIRST BYTE PAST* 
♦LEFT DELIMITER * 

* * 
***************** 



*. 



.* 



•****C5* ********* 

* * 

* FILL * 

* LAST OUTCUT • 

* BYTE • 

* * 
***************** 



*. .* 
* YES 
*•** . 
•34 * .X.... 

♦ £4 *.X. 

* * . 
•*•* X 



.* ANOTHER *. NO 
*. OPERAND TO .*... 
*. FOLLOW .♦ 
♦ . .♦ 



*****F4********** 

* * 

* BUMP DC * 

* WORK BUCKET * 
» POINTER BY 15 • 

* * 
*••***••***•**•** 



• *. 

ERROR *. YES 
IN NEXT .*.... 
OPERAND .* 



*****D5********** 

* * 

* ALIGNMENT * 
♦BYTES TO OUTPUT* 

* BUFFER * 

* * 
***************** 



*•** 

* • 

* E3 * 

* • 
**** 



***** 
*35 * 
* B3* 



*****H4******"** 

* • 

* ALIGN DATA * 

* FROM DC WORK * 

* 8UCKET * 

* * 
***************** 



S .*LAS1 OUTPUT*. 
.*. BYTE NEED .1 
*. FILLING ~ 



*. 



.* 



*. .* 
* NO 
. **** 
. • ♦ 
..X* F2 ♦ 
♦ * 
*•** 

*****J5********** 



.X* 



FILL 

LAST OUTPUT 

BYTE 



***** 

• 35 * 

* Bl* 



***************** 

I **** 

* * 
..X* F2 * 

* * 

**** 



*****K4********** 



***************** 



Chart 34. F8D - Phase F8 DC Evaluation (1 of 2) 
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DS ROUTINE 



*3"5 * 
* Bl* 



OS ROUTINE 



***** 

♦ 35 • 

♦ B3* 



****A5********* 

* * 

* ENTER TSBPRT * 

* • 
•*•••**•**••*** 



•.FIRST OPERAND.*.... 



*****B3*«* ******* 



***************** 



PRINT *. NC 
SkllCH .*... 
ENA8LE0 .* 



**»*»C1********** 

* SAVE * 

* ALIGNED • 

* LOCATION * 

* COUNTER * 

* • 
***************** 



*****C3********** 

* RESTORE » 

* ALIGNED * 

* LOCATION * 

* COUNTER « 

* 4 

***************** 



*****C5********** 

* * 

* SET * 

* DC FLAG FOR * 

* F8P * 

* * 
***************** 



*****01********** 



*****03********** 

* SET * 

* OS FLAG FOR « 

* F8P * 

***************** 



**** 
•FHP 
*-*- 



*D5********** 
32A3* 

i-*-*-*-*-*-* 

PRINT * 

ONE LINE ♦ 



******•*< 



******** 



***** 
*34 * 
* F2* 



DOES *. NO 
OPERAND .*... 
CONTAIN .* 



*•••• 
*34 * 
* E4* 



****E5********* 

* * 

* RETURN * 
» * 

*************** 



***** 

• 3* * 

* E4* 

• * 



***** 
*34 * 
* fi* 



.* OUP *. 
.* FACTOR *. NO 
. INITIALLY .*... 
*. ZERO .* 



***** 
*3« * 
* A3* 

* * 



• ****j I ********** 

• • 

• SET * 

• DUPLICATION * 

• FACTOR - I * 

• * 
**••***•**••*•••• 



***** 

♦ 34 * 

* G3* 



Chart 35. F8D - Phase F8 DC Evaluation (2 of 2] 
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•***A3********* 

* * 

* ENTER F8N * 

* * 
*************** 



***************** 



* SCAN TEXT « 

* * 

* * 
•*•**••**•******* 



*****D3********** 

* * 

* CONVERT AND * 
♦MODIFY EXPONENT* 

* IF ANY * 

* * 
***************** 



*****E4********** 

* * 

* 00 FLOATING * 
X* POINT * 

* CONVERSION * 

* * 
***************** 



**F7******* F3 *. 

* MERROR * .* *. 
**-*—*-*-*-*—** NO •* *• 

* STORE ERROR *X *. FIXED POINT .* 

* MESSAGE * *. .* 

* * *. .* 
*********** *. .* 



*****G3********** 

* * 

* DO FIXED * 

* POINT * 

* CONVERSION * 

* * 
***************** 



****H3********* 

* 4 

* RETURN * 

* * 
*************** 



Chart 36. F8N - Foating and Fixed Point Conversion 



Flowcharts 77 



****A1 ********* 

* * 

* FNTFR FPP * 

* * 
*************** 



**R1******* 

* mppin * 
**-*-*-*-*-*-** 

• INITIALISE »TRS* 

♦LIMITS SI/0* 

*BIK COUNTS * 

*********** 



.* COMPLETF *. 
. XREF LIST . 
*. SORTED IN.* 



*****C1 ********** 
•SET RELOCATION * 

* DICTIONARY * 

* RECORD LENGTH * 

* X'OS' INTO * 

* ITRSWH * 
***************** 

• ••• * 

* * • 

* Dl *.X. 

* * 

• *** . 
READ X 

******ni *********** 

GTOR 

* *-*-*-*-*-*-* * 

GFT INPUT 

♦RECORD RFLOC * 

DICTIONARY 

***•••******• 



* *-•-•-*-*-•-* * 

WRITE SORTED 

*XREF RECORDS * 

ON TAPF 

************* 



*****p 5* ********* 

* * 

* X'14« * 

* INTO ITRSWH * 

* • 

* * 
***************** 



*. FND DF DECK 



.* *. **** 

► WfF *. YES * * 

ANY RECORDS .*.... X* HI * 
». READ .* * * 



******f=4*********** 

SETOTl 

* *_*-*-*_*-+ * 

PUNCH AND LIST 

* RFLOC OICT * 

RECORDS 

************* 



**** 

* * 

* G? * 

* * 
**** 



* MOVE * 
•RECORD TO SORT * 

* ARE/* * 

* * 
***************** 



X *. .* 

**** * YFS 

• ***** 

* 01 * * . 
* HI *.X. 



XRFLOD X 

*****F 2********** 

* SFT * 

* REFERENCE * 

* RFCORD LENGTH * 

* XMO* INTO * 

* ITRSWH * 
***************** 



• *** . 

X 

******G 2*** ******** 

GTOR 

* *-*-*-*-*.*-* * 

•X READ INPUT 

♦RECORD CROSS * 

REFERENCE 

************* 



•••*• 



*•** 



NO .* RLD *. 


...... IN COR .* 


*. .* 


. ♦. .♦ 


. *• .♦ 


♦ YES 


. . **** 


. * * 


..X* E4 * 


* * 


• **** 


I **JI******* 


* ESCORT * 


. **—•-*-•-*-*-** 


...X* SORT * 


* INPUT * 


* TEXT * 


******♦*♦♦* 



♦ . .* 

X *. .♦ 

**** * 

* ***** 

* Dl * * 

* * G4 * . . . 
***** * a 

**** . 

X 

******G4*********** 

RDIXRF 

* *-*-*-*-*-*-* * 

HFRGE SORTED 

♦XRFF REC WITH* 

TAPF RECORDS 

************* 



*****F ■;********•* 

* * 

* ITRSNH= * 
X* X'10' * 

* * 

* * 
***************** 

X 

**•* 

* * 

* Dl * 

* * 
**** 



*• END OF DECK 



***** J ?*•*••**•** 

* * 

* MOVF CROSS ♦ 
•REFFRFNCE INPUT* 

* PFCORD TO * 

* SORT ARFA * 
***************** 



NO .* IS *. 

,..*. SORT ARFA .* 
*. FULL .* 



.* WERE *. 
.* ANY CROSS 
*. REFERENCES 
*. READ 



.* *. 


♦ *** 


.* ALL CROSS *. NO 


• 


*. REF RECORDS .*... 


.X* G2 


*. READ .* 


* 


♦> .* 


**** 



****** J3*********** 



PUNCH END CARD 



************* 



X PRINT C°0SS REF 

•FpnM CORE OR * 

TAPE 

************* 



***************** 



****K3* ******** 

* » 
« EXIT TO FD * 

* * 
*************** 



.X* HI * 

* • 

**** 



Chart 37. FPP - Phase FPP Post Processor 
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• * 

• ENTER FO • 
« * 

••*•••*••••*•** 



*****B i ***•*••**• 

* * 

* GET * 

* ERROR BLOCK • 

* COUNT * 

* • 
****•**•******••• 



******A3*********** 



************* 



.* ANY *. 
YES .*RELOCATABLE*. 
...*. Y-CONS IN '.* 
•.ASSEMBLY .* 



**01******* 

* GETERR * 
**-*-*-*-*-*-** 

► GET ERROR « 
* RECORO * 

• * 
*********** 



.* ALL *. 
.*MSGS. FROM *. N 
*. ERROR RECORO .*. 
*. PRINTED .* 



MLOl X 

**D3*****»* 

* GETERR * 

• *-•-•-*-*-*-•* 
♦GET NEXT ERROR * 

* RECORD * 

* * 
*********** 



*****C<!********** 

• • 

* STEP TO NEXT * 
.X*ERROR NUMBER IN* 

* RECORD * 

• * 
***************** 



.*. 


ML11 


El *. 


******£ 2** ********* 


.* ERROR *. 


PRINT "NO 


.* RECORD *. YES 


» STATEMENT * 






*. ZERO .* 


* LINE COUNT * 


*. .* 




*• »* 


*•••*•**••*•* 


• NO 




• ••• . 




* » 




* FI *.X. 




• * . 




• ••• . 




MLOIA X 




*****F1********** 


X 


* GET * 


****F 2******* ** 


* STATEMENT * 


* EXIT * 


* NUMBER ERROR * 


* TO DOS * 


♦MESSAGE APPLIES* 


• * 



****•*•••***•"***• 



.*. 

Gl *. 
•DOES NEW*. 
.* STATEMENT *. N 
.NUMBER « OLD .*. 
♦.STATEMENT.* 
♦NUMBER.* 
*. .* 
* YES 



*************** 



•****G?********** 

* • 

* STEP COUNT * 
•X* OF STATEMENTS * 

* FLAGGED * 

* • 
***************** 



E3 *. 

.* ERROR 
RECORD 
POINTER 
. ZERO 



MLIO X 

******F3*** ******** 

PRINT 

• NUMBER * 

OF STATEMENTS 

* FLAGGED * 

•*••*••*•*••* 



•***G3*** ••*•*• 

* EXIT * 

♦ TO DOS * 

• • 
***••*******•*• 



MLOIB X 

*****H1********** 
♦CONVERT STATE- * 
•MENT NO. C ERR.* 
•MESSAGE NO. FOR* 

* PRINTING WITH « 

* MESSAGE * 
•••************•• 



•****J1********** 

• * 

* GET COUNT ♦ 

♦ OF ERRORS IN ♦ 

• FRROR RFCORD * 

* * 
•*♦****••**•***•* 



ML03 X 

*****K l********** 

♦ LOOK UP ♦ 

♦ ERROR MESSAGE ♦ 

♦ IN. TABLE AND *X. 
♦MOVE TO OUTPUT ♦ 

♦ AREA * 
***•»••*♦♦♦•**••• 



Chart 38. FD - Phase FPP Diagnostic 



Flowcharts 
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****A3********* 

* * 

* ENTRY * 

* * 
•**•**•****•**• 



* DISABLE 

* SYSLST 

* AT PUTLST 

* * 

************** 



ENTERED 

FROM 

DTF 



*****B*********** 

* * 

* LOOK UP * 
K* UNIT NAME * 

* IN TABLE * 

* • 
*•*••*••••**••••• 



*•*• 

* * 

* 02 * 

* * 
• *** 



•*****C2*********** 



************* 
**** I 



• *• 

:4 *. 

*. 

FOUND 

. •*" 

*. .* 
* YES 



•****C5******* 

* * 

* OISABLE 
X* SYSLST 

* AT TELL 

* * 
************** 



.* *. *•** 
END OF *. YES * * 
CODE LIST .*....X* F5 * 





**** 




* * 




* El * 




* • 




• •** 




X 


UTLST 


• *• 




El *. 




• 


.* 




*. 


SYSLST 


*. 


OK 



******Gt *********** 

* PUT * 

MSG ON 

* SYSLST * 

************* 



*****tHl»* ********* 



*****•••••*** 





• *. 




TYP11* 




E2 *. 




*****E3********* 




• * 






.* 


CODE 


*. YES 


* BUILD 




LT 10 






"* 


* 






*. •* 








*. .* 




**************** 




* NO 




* ***• 

. * 
..X* El 

* 




X 




•*** 




• *. 




TYP112 




F2 *. 




*****F3********* 




• • 




• 


.* 


CODE 


*. YES 


* BUILO 




GT 30 






"* 


* 


* 




*. .*" 




* 




*. .* 




**••****••**••*• 




* NO 




I **** 

* 
..X* El 

* 




X 




••** 




.*. 




TYPE 115 




G2 *. 




*****G3********* 




* • 




* 


.* 


CODE 


*. NO 


* BUILD 




GT 20 







*****H2********* 



**************** 



••**•**••***•*•** 



MOVE 

UNIT NAME 

TO MSG 



•X *. BAD SYSLST 



••*****••*•****** 



***• 

* * 
..X* K« * 

* • 
**** 



*****F4*»******** 



****••••**••••••• 



******H****** ****** 



**•**•**•**•* 



CLOSE ALL 

FILES 

* PRESENT * 

••••*•*••••** 



•*****G5*********** 

* FLUSH * 

SYSLST TO 

* EOF * 

••*•••***••** 



****H 5* ******** 

* * 
» EOJ * 

• * 
•*•*•*•*••***** 



**** 

* * 

* Fl * 

* * 
•••* 



*••••• J4***** *••••• 



Chart 39. ABT - Phase ABORT 



************* 
**** * 



***• 

OPENLOG X 

******K ************ 



************* 
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APPENDIX A. ASSEMBLER OPTIONS 



OPTIONS 

The programmer may specify the following 
assembler options in the // OPTION card. 



SYM - The object module (if produced) 
contains the special symbol table 
required by the test translator 
(AUTOTEST) routines. 



DECK LIST SYM XREF 

NODECK, LINK, CATAL, NOLIST, NOSYM, NOXREF 

These options are defined as follows : 

DECK - The object module is placed on the 
device specified in the SYSPCH state- 
ment. 

LINK or CATAL - The object module is placed 
on the device specified in the SYSLNK 
statement. In addition, CATAL causes 
the core image module produced by 
LNKEDT to be cataloged on the core image 
library. 

LIST - An assembler listing is produced. 



XREF - The assembler produces a cross- 
reference table of symbols as part of 
the listing. 



The prefix NO is used with the above 
options to indicate that the option is not 
wanted. If contradictory options are 
entered, e.g., LIST, NOLIST, the rightmost 
option, e.g., NOLIST, is used. 



DEFAULT ENTRY 

If no options are specified, the assembler 
assumes the default entry values supplied 
at SYSGEN. 
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APPENDIX B. DICTIONARY, TABLE, AND RECORD FORMATS 



The dictionary, table, and record formats 
are grouped according to phase. The macro 
generation phases create dictionaries 
(global and local) and source, error, and 
edited text records. 

The assembly phases create other tables 
and dictionaries (symbol table, relocation 
dictionary, etc.,) and error records. They 
also create source records for generated 
statements and pass and/or modify the 
edited text records which are not resolved 
during macro generation and conditional 
assembly. 

This appendix is divided by phases. 
The formats are then subdivided according 
to dictionary, table, and record formats 
within each phase. 



MACRO GENERATION PHASES (F2 AND F3) 

Phase F2 creates and subsets the global, 
open code local, and macro local diction- 
aries. The subsetted dictionaries are used 
by Phase F3 for macro definition editing 
and conditional assembly. 

F2 creates source records for text 
stream statements from SYSIPT. F2 also 
creates edited text records for all input 
statements from SYSIPT and SYSSLB — except 
it creates no edited text records for ICTL, 
ISEQ, MACRO, COPY, or comments (* and .*) 
statements. Edited text records are either 
Type I or Type II. Type I records include 
machine instructions and all assembler 
instructions except Type II. Type II 
records have non-standard formats. They 
include REPRO, SETx, AIF, AGO, MEND, MEXIT, 
and End-of -Data-Set records. Type II 
records (except REPRO) are resolved during 
F3. Type I records and REPRO records are 
modified by F3 for processing by the as- 
sembly phases. 



Macro Generator Dictionary Entries 

The macro generator dictionaries — il- 
lustrated in Figure Bl — are summarized 
below. 



"A" Pointer (local big "A" pointer) - 
Backward chaining address of the 
preceding entry in a dictionary chain. 

Flag - (Global Dictionaries) 

Bit - Normal global variables. 
1 - Obsolete global variables 

(global variables which have 
been declared apart from the 
current part of the source 
deck being processed, such 
as macro definition or main- 
line program) . 

NOTE: Bit zero is used for global 
variables only. 



Bits 1-4 



Bits 5-7 



0000 - Op codes 

0001 - Internal assembler op 

code 

0010 - Extended mnemonics 

0011 - Macro names 

0100 - Global A variables 

0101 - Global B variables 
0110 - Global C variables 

Length of BCD entry minus one 
(L-l) 



Flag - (Local Dictionaries) 

Bit - Synonym (part of a chain) 
1 - End of the chain 

Bits 1-4 1000 - Sequence symbols 
1001 - Parameters 
1010 - Ordinary Symbols 

1100 - Local A variables 

1101 - Local B variables 
1110 - Local C variables 

Bits 5-7 Length of BCD entry minus one 
(L-l) 



Rl Mask - Rl field for extended mnemonics. 
The extension of op codes field is 
omitted for machine operation code 
entries. 



Global and Local Dictionaries 

"A" Pointer (global big "A" pointer) - 
Forward chaining address of the next 
entry in a dictionary chain. 



Mnemonic - The name in Internal Assembler 
Code. 

"a" Pointer - Little "a" pointer to a loca- 
tion in the Phase F3 dictionary that 
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GLOBAL 



LOCAL 



Defined Operation Codes 
Bytes 2 1 



1 to 8 



"A" 
pointer 


Flag 


Mnemonic 


Machine or As- 
sembler Opera- 
tion Code (Hex) 


ASC 


R1 Mask 



Open Code Ordinary Symbols 



Macro Name 
Bytes 2 



I to 8 



"A" 
pointer 


Flag 


Mnemonic 


"a" 
pointer 


NOTE/ 
POINT 


MCP 



Global SET Variable Symbol 
Bytes 2 1 



2 to 8 



"A" 
pointer 


Flag 


Mnemonic 


"a" 
pointer 


C 



Bytes 


2 


1 


1 to 8 


2 


1 




2 




2 




/a 
pointer 


Flag 


Mnemonic 


"a" 
pointer 


Type 


Length 


Scale 


Sequence Symbols 
Bytes 2 1 


2 to 8 


2 


3 2 




"A" 
pointer 


Flag 


Mnemonic 


"a" 
pointer 


NOTE/ 
POINT 


B 


Local SET Variable Symb 
Bytes 2 1 


ols 

2 to 8 


2 


1 




"A" 
pointer 


Flag 


Mnemonic 


"a" 
pointer 


D 



Macro Prototype Symbolic Parameters 



Bytes 



2 


1 


2 to 8 


2 


"A" 
pointer 


Flag 


Mnemonic 


PN 



SUBSETTED GLOBAL AND LOCAL 
SETB Variable 



Symbols 
Bytes 



Type 


Length 


Scale 



1 


Dimensioned 
1 


1 


n 


SETB 
Variables 


SETB 
Variables 













SETA Variable 

Dimensioned 
Bytes 1_ 4 4 



Bytes 



SETC Variable 



Undimensioned 
4 



n 


Entry 


Entry 


Entry 



Entry 



1 


Dimensioned 
1 8 1 


8 


n 


L 


Data 


L 


Data 




-*• En 


ry-* 







Undimensioned 



SETB 
Variables 



Undimensioned 
I 8 



L 


Data 



Figure Bl. Macro Generator Dictionary Entry Formats 



will contain the subsetted entry for 
this mnemonic. 

NOTE/POINT - NOTE/POINT Address. Before 
the dictionary associated with this 
mnemonic is subsetted, this entry will 
contain the NOTE location of the begin- 
ning of the edited text for the corres- 
ponding macro definition. After the 
local dictionary has been subsetted, 
this field contains the NOTEd location 
of the subset dictionary, which will in 



turn contain the NOTEd position of the 
edited text of the macro definition. 

MCP - Macro chain pointer. The backwards 
chaining address of the preceding 
macro name entry in the dictionary. 

B - The position of the beginning of the 
sequence symbol edited text. 

C - Dimension, the declared SET variable 
dimension. This will be zero if un- 
dimensioned. 
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D - The declared dimension of the local 

SET variable symbol. It will be zero if 
the symbol is undimensioned. 

PN - The operand position number assigned 
to the symbolic parameter. 

Type - Type attribute. See Table Bl. 

Length - Length attribute. 

Scale - Scale attribute: 

Bit - Positive 
1 - Negative 

Bits 1-15 Scale attribute 

Subsetted Dictionaries 

n - number of variables in entry 

L - True length of character string (data) 

T - Length of SETB dictionary entry 
(n/8+1) 

Type, Length, Scale - See above. 
Macro Local Dictionary Header 



Bytes 



The header is attached to the subsetted 
dictionaries' output by Phase F2. 

ACTR Loop - The ACTR loop limit 1 , i.e., 
initial assumption made by processor. 

NOTE/POINT - Location of block on SYS003 
in which the macro definition edited 
text begins (points to prototype record) 

No. of blocks - The number of segments on 
SYS00 3 in which the dictionary is 
contained. 



Dummy 


ACTR 
Loop 


Dummy 


NOTE/ 
POINT 


Dummy 


No. of 
blocks 


Size of 
md. 



4 


4 


4 


4 


1 


1 


2 


Dictionary 
address 


ACTR 
loop 


ACTR 
counter 


NOTE/ 
POINT 


Flag 


SYS001/3 


Delta 
M-l 



Size of MD - The size of the total macro 
dictionary in bytes. 

The header as modified during F3 processing 
of the macro instruction is as follows: 



Bytes 



Diet Addr - The location of the higher 
level local dictionary. If the macro 
being processed is not an inner macro, 
this pointer points to the open code 
local dictionary. 

ACTR Loop - Same as macro dictionary 
header. 

ACTR CTR - The current loop count, i.e., 
the number of times the loop has been 
passed. 

NOTE/POINT - The location of the block in 
which the end-of -macro instruction 
record is located. 

FLAG - A switch, used to signal whether 

the length table has already been stored 
following a parameter table. 

SYS001/3 - A switch to indicate: 

8 - Input is from SYS003 
- Input is from SYS001 

Delta M-I - Position of discontinued text 
(record following macro instruction) 
relative to beginning of block. 



Macro Dictionary Parameter Table Entries 

A macro dictionary parameter table is built 
from the macro instruction and macro 
prototype parameters when the macro defi- 
nition is edited. The parameter table is 
written on SYS003 immediately following 
the macro local dictionary. The parameter 
formats are illustrated in Figure B2 . 
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Entry Type 
























SYSNDX 


Param- 
eter 
Number 


NDX 


L 


4 bytes 

Character 

Value 


4 bytes 
Binary 
Value 






SYSECT 


Not 
Used 


CSECT 


L 


BCD Name 




Name field of 
Character string 
Operand 


T 


CHAR 


K' 
L 


Name or 
Character String 




Self-defining Term 
(Hex, Binary, Decimal) 


T 


HBD 


3 bytes 
Binary 


'c' 


K' 

L 


Character Representation 




Self-defining 
character 


T 


CSD 


3 bytes 
Binary 


'c 1 


K. 1 

L 


Character Representation 




Symbol 


T 


SYM 


5 bytes 
Attributes of 
symbol 


'c' 


K' 
L 


Symbol Name 




Sub list 


T 


SUB 


2 bytes 
Tot. L 


2 bytes 
K' 


N' 


( 


2 bytes 
L l 


Parameter Entry 
Type 1 , 2, 3, 
or 4 above 


, 


2 bytes 
L 2 


Parameter Entry 
Type 1, 2, 3 
or 4 above 


) 


N' 



T = Type attribute 

L = Length of following fieid (For HBD, CSD, CHAR and SYM L = K' ) 

'c' = character flag — a character string follows 

Tot. L = Total length of sublist entry 

K' (not sublist) = Number of characters in operand (excluding commas) 

K' (sublist) = Number of characters between outer commas in a sublist 

N' = Number of operands in a sublist 

N' = 1 if the operand is a sublist 
N' = if the operand is omitted 



Figure B2. Macro Dictionary Parameter Table Entries 



Macro Generator Record Formats 

The fields which make up the macro generator 
records — illustrated in Figure B3 — are 
explained below. 

Type ID - Type of record. See Table Bl. 
This byte is dropped after Phase F3. 

R/L - Record Length 

FLAGA - A two byte field of information 
on how the record should be processed. 
See Edited Text Record Fixed Field 
Format in Phase F7. The source record 
contains only the first FLAGA byte. 

Op Code - Absolute (hexadecimal) operation 
code for machine and assembler opera- 
tions. See the DOS Assembler Language 
manual for the machine operation codes 
and Table B2 for assembler operation 
codes . 

ASC - Assembler Switch Codes. (Inserted in 
F2 but not used by the macro generator 



Table Bl. Type Indicators (Phases F2/F3) 



Description of Record 


Type Indicator 


Source statement continuation record 


08 


Error record (warning message) 


08 


End of data set 


0A 


Error record (not warning message) 


0D 


Edited text records (machine instructions, DC, DS, 
etc.) 


00 


CSECT, DSECT, START edited text record 


01 


AGO edited text record 


02 


AIF edited text record 


03 


SETx and ACTR edited text record 


04 


Macro instruction edited text record 


05 


Macro definition prototype statement edited text 
record 


06 


MEXIT and MEND edited text flag record 


07 


ANOP edited text flag record 


09 


Macro instruction or prototype operand value 
record 


0B 


End of macro instruction or prototype record 


OC 



Appendix B. Dictionary, Table, and Record Formats 



85 



TYPE 1 EDITED TEXT 
Bytes 1 2 2 



1 1 



1 Variable 1 



1 Variable 1 



1 Variable 1 



1 Variable 1 1 



Type 
ID 



R/L 



FLAGA 



Op 
Code 



ASC 



(Zeros) 



flag 



Name 



© 



flag 



Operation 



© 



Operand 



© 



flag 
•PUT' 



Comments 



© 



© 



Y 

Fixed Portion 



Y 

Name Entry 



Y 

Operation Field 



y 

Operand Entry 



Y 

Comments Field 



Bytes 



SOURCE RECORD 



1 


2 


1 


Variable 


Type 
ID 


R/L 


FLAGA 
(1st byte) 


Source 




-84 







Bytes 



ERROR RECORD 

1 1 1 



Type 
ID 


R/L 


FLAGA 


Number 

of 
errors 


Error 
code 


X'OO" 



I— X'OD' '— 7 "-XMO' 



TYPE 2 EDITED TEXT 
REPRO 

Bytes 1 2 



Type 
ID 



R/L 



I — Y'nn 1 



1 1 



1 Variable 1 



FLAGA 



X'OO" 



SET Statement ' 
Bytes 



Op 
code 



ASC 



(zeroes) 



Operation 



Operand 



Comments 



i-X'OO' ^REPRO 

(no name field) 



1 


2 


7 


1 


2 


1 


1 




1 


1 


Type 
ID 


R/L 


Dummy 


SETx 
Flag 


"a" 
Pointer 


C 


Blank 


Operand expression 
(eval. routine format) 


Blank 


© 


i, 


'04' 




«« — t 


^lame Fielc 


— ^ 
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Source 



MEND OR MEXIT 



Bytes 



Type 
ID 



Dummy 



L X'07' 



End of Data Set 



Bytes 



Type 
ID 


R/L 


FLAGA 



I 



X'OA' 



A IF Statement 
Bytes 1 



L-x'03 



Variable 



Type 
ID 


R/L 


Dummy 


AIF expression 

(see eval, routine 

formats) 


Blank 


"a" 
pointer 


Dummy 



AGO Statement 



Bytes 



1 


2 


7 


1 


2 


1 


Type 
ID 


R/L 


Dummy 


Dummy 


"a" 
Pointer 


Dummy 



L -X'02' 



Figure B3. Macro Generator Record Formats (1 of 2) 
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MACRO INSTRUCTION AND MACRO PROTOTYPE 

Header (one logical) Record" 
Bytes 



1 Variable 



•One logical record- 



Variable Variable Variable 



One logical record- 



Variable Variable Variable Variable 1 



Type 
ID 



R/L 



FLAGA 



dummy 



E<Kpojnl»> ^ 



Name* 



Blank 



Source 



Operand 
1 



Operand 
2 



Source 



Operand 
3 



Operand 
4 



Operand 
5 



X'OC' 



R/L 



-X'05' 
-X'06' 



— Macro Instruction only 
L- Prototype only 



SUBSTRING OPERAND 



Bytes 



V_ 



End of Macro 
Instruction/ 
Prototype Record 



TYPICAL OPERAND 



Type 
ID 


R/L 


Dummy 




Value* 


' 



r 



Bytes ( \ \ 



Variable » 



Type 
ID 


R/L 


Dummy 


or 


Dummy 


Flag 
X'FO' 


Dummy 


Flag 
X'02' 


Value* 


' 



■ X'OB" 



First Record 



'OB' 



Symbol 



NAME AND 
OPERAND VALUE FORMATS 



1 Variable 



Type 


Flag 
X'FA' 


"a" 
pointer 


Dummy 


Flag 
X'27' 


L 


Symbol 



Keyword 
Operand 



1 Variable 1 



Variable 



Type 


Flag 
X'FA' 


L+l 


Keyword 
Name 


= 


Dummy 


Operand 
Value 
format 



1 Variable 1 



Type 
ID 


R/L 


Dummy 


Flag 
X'F9' 


Value* , 



X'OB' 



Any Intermediate Record 





1 


1 


3 




1 


1 


Variable 


Self-Defining 
Term 


Type 


Flag 


Binary 
value 


Flag 
X'27' 


L 


Value 




1 


* X, C, B, or D 

1 1 Variable 




Character 


Type 


Flag 
X'27' 


L 


Value 





*The operand value of a typical or 
substring operand is expressed in one 
of the operand value formats. 



1 


1 


7 


1 


Variable 


1 


1 


1 




Omitted 
Operand 

Evaluation 
Required 


1 


1 


1 




Type 
JD 


R/L 


Dummy 


Flag 
X'F9' 


Value* 


) 


N 


' 




Type 
X'OO' 


Flag 
X'27 


L 
X'OO' 




*— X'OB' 


Last Record * c 

i 
o 


omma present 
not last 
serand 


2 Vat 


iable 1 






Evaluation 
Flag 


Expression 


' 








• 





Evaluation 
Routine Formats 



■ See Evaluation Routine Formats 



Figure B3. Macro Generator Record Formats (2 of 2) 
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Table B2 . Assembler Operation Codes 





Hexadecimal 


Mnemonic 


Value 


GBLA 





GBLB 


1 


GBLC 


2 


LCLA 


3 


LCLB 


4 


LCLC 


5 


SETA 


6 


SETB 


7 


SETC 


8 


AIF 


9 


AGO 


A 


ANULL 


B 


COPY 


C 


MACRO 


D 


MNOTE 


E 


MEXIT 


F 


MEND 


10 


ICTL 


11 


ISEQ 


12 


PRINT 


13 


SPACE 


14 


EJECT 


15 


PUNCH 


16 


REPRO 


17 


TITLE 


18 


ENTRY 


19 


EXTRN 


1A 


START 


IB 


CSECT 


1C 


DSECT 


ID 


COM 


IE 


EQU 


IF 


ORG 


20 


END 


21 


LTORG 


22 


USING 


23 


DROP 


24 


Literal DC 


25 


DC 


26 


DS 


27 


CCW 


28 


CNOP 


29 


DXD 


2B 


CXD 


2C 



phases . See Edited Text Record Fixed 
Field Format (TXASC) in Phase F7.) 

Flag - See Table B3. The flag byte in- 
dicates such things as logical opera- 
tors, self -defining term type, symbol 
attribute type, macro parameter type, 
etc. The flag bytes in the record 
format illustrations are normally 
identified by their actual hexadecimal 
value or by a circle symbolic 
representation (such as (?) ) . 



L - The length of the field which follows 
this byte. If L is zero, the field which 
normally follows it is not present. 
L preceeds the name, operation, operand, 
and comments fields in edited text and 
the value field in Operand Value Formats. 

Type - Internal value for type attribute . 
See Table B4. 

N - Number of positional operands in a 
p macro prototype . 



N, - Number of keyword operands in a macro 
instruction or prototype. 

N - Number of elements in a sublist 
operand. 

Dummy - Unused bytes. 

"a" pointer - Little "a" pointer to a 

location in the subsetted dictionary of 
the entry for this mnemonic. 

C - Bit Dictionary bit 

- Local 

1 - Global 

5-7 SETB bits 
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Table B3 


Flag Values 


Value 
(Hex.) 


Flog Description 


00 


Period 


01 


Right Rarer. 


02 


Left Paren. 


03 


Subscripted Left Paren. 


04 


Plus 


05 


Minus 


06 


Multiply (asterisk) 


07 


Divide (slash) 


08 


Equal 


09 


Not Equal 


0A 


Less Than 


OB 


Greater Than 


OC 


Less Than or Equal to 


OD 


Greater Than or Equal to 


OE 


Not 


OF 


Or 


10 


And 


22 


Hexadecimal Self-Defining Term 


23 


Binary Self-Defining Term 


24 


Decimal Self-Defining Term 


25 


Character Self-Defining Term 


26 


Null Symbol & Evaluation Flag 


27 


Character String 


28 


SETA 


29 


SETB 


2A 


SETC 


2B 


Comma 


2C 


Begin Substring 


2D 


Begin Substring Operands 


2E 


First Operand Completed 


2F 


Second Operand Completed 


30 


Actual Internal Value Right Paren. Used Only on 
Sub list 


31 


Arithmetic Expression mode. (Absence indicates 
character expression) 


32 


Blank 


33 


Type Attribute Reference 


34 


Length " " 


35 


Integer " " 


36 


Scale " " 


37 


Number " " 


38 


Count " 


39 


Symbolic Parameter Reference 


3A 


&SYSLIST 


FO 


Sublist 



Table B3. Flag Values (Continued) 



Value 




(Hex.) 


Flag Description 


F8 


End of machine instruction field Qfj 


F9 


Continue sublist 


FA 


Symbol 


FB 


Positional @ 


FC 


Keyword \K) 


FD 


PUT (No evaluation necessary) 


FE 


End of block 


FF 


End of evaluation \EJ 



Table B4. Internal Values for Type 
Attributes 



Value 
(Hex.) 


Type 


Value 
(Hex.) 


Type 


00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

0A 

0B 

0C 


P 
Z 
E 
D 
K 
F 
G 
H 
S 
A 
V 
Y 
R 


0D 
0E 
OF 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 


W 

1 

C 

Q 

B 

J 

X 

M 

T 

U 

O 

N 

u' 
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Continuation and Segmenting 

Macro instructions (and prototype) may be 
segmented by adding a continuation flag 
after the last operand record in the block. 
An operand record must be fully contained 
in one block. 



Operand Reference 

Reference in a macro definition model 
statement or inner macro instruction to 
a symbolic parameter is made by position. 
Operands are numbered as follows: 




1 
2 

3 

t 

202J 



$SYSNDX 

$SYSECT 

Symbolic parameter in name field 

of prototype statement 

Operand field of prototype 
statement 



Keyword operands are given a position 
number similar to positional operands. The 
positions are assigned in the order that 
they appear in the operand field of the 
prototype statement . 

Format of request for substitution of 
macro instruction operand in place of 
symbolic parameter: 

bytes 1 



A 


B 


null 



A - Operand request flag (X'39 1 ) 
B - Operand number 



Evaluation Routine Formats 

These sub-records are used to describe 
expressions that require substitution and/ 
or evaluation. 



Attributes (L'l'S'T 1 ) 

bytes 1 



]QG 



Q 



A - Flag byte (type of attribute) . See 
Table B3. 

B - Symbolic parameter (X'39') or symbol 
flag (X'FA'). See Table B3. 

C - 2-byte "a" pointer if the reference, is 
to an attribute of a symbol, or param- 
eter position number in low order byte 
of C if the reference is to an attribute 
of a symbolic parameter. 

D - Dummy 



Character String 



bytes 1 



□ 



rioble 



B 




C 



A - Flag byte 'C (X'*27') 

B - True length byte (if zero, C will not 
exist) 

C - Data bytes (variable bytes of char- 
acters) 



Decimal, Hexadecimal, Binary, or Character 
Self-Defining Term 



bytes ]_ 

A 



A - Flag byte (hexadecimal = X'22', binary 
X'23', decimal = X'24', character = 
X'25') 
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B - Data bytes. Three bytes of data in 
binary. 



following the other, will be concatenated, 
and no concatenation flag is required. 



Variable Symbol 



PHASE F7 



bytes 1 

A 



Record Formats 



Error Record 



A - Flag byte (SETA = X'28 1 SETB = X*29', 
SETC = X'2A') 

B - 2-byte "a" pointer 

C - Bits 5-7 for subscripted SETB. In- 
dicates in binary form the particular 
bit (0-7) within the byte referenced 
by B that contains the SETB evaulation; 
bit 0=0 for local or 1 for global. 



Substring 



bytes 



variable 



variable 



variable 



H □ H H □ □ H 

A - Begin substring 'BEGSUB' flag (X'2C) 

B - Character expression (variable bytes) 

C - Begin first operand 'SUBOPE' flag 
(X'2D') 

D - Expression 1 (variable bytes) 

E - First operand completed 'SUBCOM 1 flag 
(X'2E') 

F - Expression 2 (variable bytes) 

G - End of substring notation 'SUBCLS.' 
flag (X'2F ! ) 



Subscripting. Left parenthesis is replaced 
by a special subscript left paren flag 
(X'03') . 

Remainder of the format is as previously 
described. 



Concatenation . Occurs automatically by 
just eliminating the period. Two character 
strings (or SET variables), one immediately 



R/L 


FLAGA 


Error 
count 
= N 


Error 
type 


Column 
pointer 



Bytes 



R/L - Record length. R/L = 4 + 2N, where 
16 £ N>0. (There may be as many as 16.) 



Edited Text Records - General 

Phase F7 receives edited text records in a 
format prepared by the macro generator. 
Phase F7 processes these records and attaches 
an "appended fixed field" and, when requir- 
ed, "work buckets". The description of 
the F7 edited text records that follows 
gives the field names as they appear in 
the listings. 



Fixed Field 



Bytes 



Assembler Flags — — 
2 112 



. Variable Field 



1 Variable 1 



TXRL 



FLAGA TXHEX 



TXASC 



TXABP 



TXNAML 



TXNAME 



TXOPL 



Bytes 



-Variable F 



Appended 



ield(Confd) ,1. r~ -H 

Fixed Field 



Variable 1 Variable 1 Variable 



TXOP 



TXOPNL 



TXOPN TXCOML 



TXCOM TXLOC 



TXURS 



Misc. 



Bytes 



I— 



Work BuckeKs) (where appended) »J 

variable 



Type 1 and/or Type 2 and/or Type 3 
Vfork Buckets 
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The fixed field and the variable field are 
the input record to Phase F7. The appended 
fixed field is attached to this record in 
Phase F7. 



Edited Text Record Fixed Field Format 

TXRL - Record Length. This will be set to 
the total number of bytes (including 
appended fields) by the GET statement 
routine in Phase F7. 

FLAG A - 

Bit TXLRI. Last record in buffer 
indicator. Correctly set by the GET 
statement routine in Phase F7. 

Bits 1-3 TXRT. Record type. 

000 - Print as is. Source record 
only. (These are assembly 
records created from program source 
inpu+- records in Phase F2 . ) 



001 - Error record, 
phase. ) 



(Created in any 



010 - Print as is, but do not display 
a statement number. Source record 
only. (Created in Phase F3 from 
edited text, type 110, for condi- 
tional assembly substituted state- 
ments outside of macro definitions, 

011 - Print as is if GEN option is on, 
Steps statement number counter. 
Source record only. (Can be 
source record of comments for 
generation within macro defini- 
tion, e.g., "*" in Phase F2, or 
may be source record created in 
Phase F3 from edited text, type 
111, generated by macro instruc- 
tion expansions.) 

100 - Process only. Edited text 
records only. (Edited from 
source in Phase F2 . ) 

101 - Internal assembler control 
record. (In Phase F7, CSECT, ORG, 
and LTORG.) Edited text records 
are generated for END statement 
processing. 

110 - Process this record and con- 
struct source record for print. 
(Edited text, but no source, e.g., 
Phase F7 literals, and Phase F3 
conditional assembly substituted 
statements outside of macro 
definitions. 



Ill - Process this record and con- 
struct source record for print if 
GEN option is on. (Edited text 
and MNOTE statements generated by 
macro expansions, Phase F3.) 

Bit 4 TXBF. Break flag. Indicates that 
a logical record continues in the 
next physical block. The Phase F7 
GET routine arranges all edited 
source and edited generated records 
so that this condition does not exist. 

Bit 5 TXERI . Error record follows in- 
dicator. Used by the PUT ERROR 
common subroutine in Phases F7 and F8 
to determine whether to create a 
new error record or to attach to an 
existing error record. 

Bit 6 TXESI. Equal sign indicator. Set 
by the Phase F7 GET statement routine. 

- There is no literal in the operand 

of this statement. 

1 - There is a literal in the operand 

of this statement. 

Bit 7 TXMARK. Phase F7 iteration point 
flag. 

Bits 0-1 TXTO. Type of operation. 

01 - Machine operation. 

10 - Assembler operation. 

00 - Unchecked. (Phase F7 GET state- 
ment will set equal to 01 or 10 if 
a 00 condition exists and a legal 
operation code is converted.) 

Bit 2 TXEMF. Extended mnemonic flag. 

Bit 3 TXMDN. Multiply defined name 
indicator. (Set by Phase F7 for 
future passes.) 

Bits 4-7 TXRIM. Rl mask for extended 
mnemonics . Used for special switch 
codes on assembler operations. 

Bit 4 - Name required. 

Bit 5 - Name not allowed. 

Bit 6 - Operand required. 

Bit 7 - Operand not allowed. 

TXHEX - Machine operation code or internal 
assembler operation code. 
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TXASC - Assembler Switch Code for machine 
operations. 

Bit - No floating point register 
required . 
1 - Floating point register 
required. 

Bit 1 - No even register required. 

I - Even register required (0 7 

2, 4, 6); or register or 
4 required. 

Bits 2-3 00 - No boundary alignment. 
01 - Half word. 
10 - Full word. 

II - Double word boundary 

alignment. 

Bits 4-5 Type of class within in- 
struction (XX + 1) . 

Bit 6 1 - Literal permitted in 2nd 
and 3rd operand. 

Bit 7 1 - Literal permitted in 1st 
operand. 

TXASC - Assembler Switch Code for Assembler 
Operation . 



Bit 
Bit 
Bit 
Bit 
Bit 
Bit 
Bit 
Bit 



Uninitiated private code. 

Possible symbol table entry. 

Location counter reference. 

Special Phase F7 cross-reference 

Substitution required. 

Not Used 

Not Used 

Phase F8 uninitiated private 

code. 



Edited Text Record Appended Fixed Field 
Format 

TXLOC - Location counter. Set by Phase F7 
during assignment pass . 

TXURS - Unresolved symbol counter. 

Misc. - 

Bits 0-3 Unused. 

Bit 4 TXLES. End of string indica- 
tor for literal DCs. Unused on all 
other types . 

Bits 5-7 TXSTG. String number for 
literal DCs. 



or 



TXALIN. Alignment for machine 
operation codes . 



Work Buckets 

There are three primary types of work 
buckets : 

• Type 1 - Literal in operand. 

• Type 2 - Symbol in operand. 

• Type 3 - DC, literal DC, and DS opera- 
tion code . 

These work buckets are appended to edited 
text records by the Phase F7 GET statement 
the first time through. 



TXABP - Appended fixed field pointer. 



Edited Text Record Variable Field Format 

TXNAML - Name field length. If zero, there 
is no name field. 

TXNAME - Name field. 

TXOPL - Operation field length. 

TXOP - Operation field. 

TXOPNL - Operand field length. If zero, 
there is no operand field. 

TXOPN - Operand field. 

TXCOML - Comments field length. If zero, 
there is no comments field. 

TXCOM - Comments field. This field will 
contain comments and extraneous data. 



Literal in Operand. If the equal sign in- 
dicator is set, a 6-byte Type 1 work bucket 
will be appended immediately following the 
appended fixed field. The format for the 
Type 1 work bucket is given in Figure B4. 

Byte 1 - 

Bit TXWTYP. Work bucket type (must 
be zero; = type 1) . 

Bit 1 TXWLEN. Work bucket length 
(must be zero; 0=6 bytes). 

Bits 2-5 (Blank) 

Bit 6 TXLEVI. Literal evaluated 
indicated. 

Bit 7 TXLASI. Literal assigned 
indicator. 
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TYPE 1 WORK BUCKET- LITERAL IN OPERAND FIELD 



T 


T 




T 


T 








X 


X 




X 


X 








w 

T 


W 
1 




L 
F 


L 
A 


TXLSTG 


TXLDSP 


TXLLEN 


Y 


E 




V 


S 








P 


N 




1 


1 









TYPE 2 WORK BUCKET 
Bytes 2 

Bit 



N C 



O B 



TXSVAL 



<D 



bytes | 1 
1/ 



NOTES: 

© Symbol work buckets after 
substitution 

(2) Symbol work buckets before 
substitution 

© Symbol work buckets for 
EXTRN and ENTRY 



rXSBLN TXSPTR 



© 



bytes I 1 



® 



Figure B4. Types 1 and 2 Work Buckets 



Byte 1 - 

Bit TXWTYP. Work bucket type (must 
be one; 1 = type 2) . 

Bit 1 TXWLEN. Work bucket length (must 
be zero; 0=6 bytes) . 

Bit 2 TXSDOC. Symbol defined in DSECT 
or COM indicator". 

Bit 3 TXSUBS. Value substituted 
indicator. 

Bit 4 TXLAS. Last symbol in operand 
indicator. 

Bit 5 TXSEXI. "Implied length exceeds 
256" indicator. 

Bits 6-7 TXSTPC. Adjective code. 

TXSLEN - Implied length. 

TXSESD - External symbol dictionary ID. 

TXSVAL - Value. If the value substituted 
indicator equals zero, the third byte 
of TXSVAL will contain a pointer to the 
symbol (relative to the beginning of the 
operand field) . The second byte will 
contain the symbol m length. 

TXSBLN - Symbol byte length. 

TXSPTR - Pointer to symbol in operand 
field. 



TXLSTG - Literal string number. Corres- 
ponds to entry in literal base table . 

TXLDSP - Literal string displacement. If 
the value substituted indicator equals 
zero, the third byte of TXLDSP will con- 
tain a pointer to the symbol (relative 
to the beginning of the operand field) . 
The second byte will contain the symbol 
length . 

TXLLEN - Literal length attribute. 



Symbol in Operand. If symbol table over- 
flow occurs, it is necessary to append one 
Type 2 work bucket for each symbol in the 
operand field, including symbols within 
literal specification fields. See Figure 
B4. The order of work buckets corresponds 
to the order of the symbols in the operand 
field. CSECT, DSECT, and COM records will 
also be appended by a six-byte symbol work 
bucket . 



TXSESL - Last operand in EXTRN/ENTRY 
indicator. 



DC, Literal DC, and PS Operation Code. If 
the operation code is one of these three 
types, one 15-byte Type 3 work bucket will 
be created for each operand. See Figure 
B5 . Each operand work bucket will be 
followed by a six-byte work bucket for each 
symbol in the operand. 

Byte 1 - 

Bit TXWTYP. Work bucket type (must 
be zero; = type 3) . 

Bit 1 TXWLEN. Work bucket length 
(must be one; 1 = 15 bytes) . 

Bit 2 TXDPPI. DC previously processed 
indicator. 

Bit 3 TXDLMP. Length modifier present 
indicator. 
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Bytes 1 

Bit 12 3 4 



T 


T 


T 


T 


T 












X 


X 


X 


X 


X 












w 

T 


w 
1 


D 
P 


I 


I 




TXDTYP 


TXDLEN 


TXDUPL 


TXDCON 


Y 


E 


r 


M 


A 












P 


N 


1 


P 


S 












i 



TXDPTR 



TXDEXP 



TXDSCM 



TXDLNM 



Figure B5. Type 3 Work Bucket 



TXDLEN - Total length. 

TXDUPL - Duplication factor. 

TXDCON - Number of constants. 

TXDPTR - Pointer to first byte of operand 
in text (relative to beginning of 
operand field) . 

TXDEXP - Exponent. 

TXDSCM - Scale modifier. 

TXDSYM - Symbol work buckets flag. 

TXDALN - Alignment 

TXDLMD - Length modifier type. 

- Byte 

1 - Bit 

TXDLNM - Length modifier value. 



Bit 4 TXDLAS. Last operand indicator. 
Bits 5-7 (Blank) . 
TXDTYP - Type, translated. See Table B5 . 



Table B5. DC/DS Type Indicators for Type 3 
Work Buckets 



Hexadecimal 




Number 


Meaning 


00 


Character 


01 


Hexadecimal 


02 


Binary 


03 


Packed 


04 


Zoned 


05 


Double precision floating point 


06 


Single precision floating point 


07 


Full-word fixed point 


08 


Half-word fixed point 


09 


A-CON -> 




0A 


Y CON 




0B 


V-CON > Address Constants 


OC 


S-CON J 



Special Work Bucket . A special work bucket 
is used for TITLE, PUNCH, REPRO, and MNOTE 
edited text records 



Bytes 



• Fixed Field 



TXRL 



FLAGA TXHEX TXASC TXABP TXNAML TXNAME 



Variable Field 



1 Vanahlg 



Bytes 



Variable Field (Cont'd) 

1 Variable 1 Variable 1 Vnrinhlp 



TXOPL TXOP TXOPNL 



TXOPN 



TXCOML 



TXCOM 



♦Work Bucket*- 



1 Vnrinhlp. 



Byte 
count 



Edited 
operand 



The eight-byte fixed field is the same as 
that described under "Edited Text Record 
Fixed Field Format." The variable field is 
the same as that described under "Edited 
Text Record Variable Field Format." How- 
ever, in place of an appended fixed field 
is a special work bucket, as follows: 

Byte Count - The byte count of the edited 
operand for punching or printing. 

Edited Operand - The punch or print image 
in external code constructed from normal 
edited text in Phase F7 . However, if 
PUNCH or REPRO is output in Phase F7, 
the byte count of this field is zero. 

LTORG Statement Work Bucket. 

Bytes 4 44444 44 



L8 


L4 


L2 


LI 


N8 


N4 


N2 


Nl 
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L8 - Total length of 8-byte chain. 
L4 - Total length of 4-byte chain. 
L2 - Total length of 2-byte chain. 
LI - Total length of 1-byte chain. 
N8 - Number of entries in 8-byte chain. 
N4 - Number of entries in 4-byte chain. 
N2 - Number of entries in 2-byte chain. 
Nl - Number of entries in 1-byte chain. 

Tables 



Symbol Table 

The symbol table is a collection of symbols 
and literals with their associated attri- 
butes. It is built during Phase F7 . 

The symbol table remains in core storage 
as long as the space allocated will hold it, 
It is used by Phase F7 , Phase FI , and 
Phase F8. 

There are two types of entries in the 
symbol table . 

1. Name entries. 

2. Literal entries. 

Name Entries. EQU, CCW, DC, DS, machine 
instructions, and LTORG, and external name 
entries EXTRN, START, CSECT, and DSECT. 



Bytes 



1-8 r 



7 bit* 



■> 1 



Symbol 
Length 


Symbol 
Nome 


ESD 
Item 
Pointer 


Adjective 
Code 


ESD 
ID 


Value 


Length 


Chain 
Pointer 



Value - present only in name entries. 

Length -' present only in name entries. 

Chain pointer - present only when a symbol 
with the same hash has been previously 
entered in the table. This pointer is 
the address of the previous entry. 

Literal Entries. 



Bytes 



3 


1 


Variable 


1 


1 


1 


3 


Chain 
pointer 


Def. 
Length 


Text form 
of literal 


Length 
Attribute 


Flog 


Type 
trans. 


Displace- 
ment 





Bytes 



3 


1 


1 


1 ' 


2 






11 bits 4 bits 


.» ' ■ 


Dup. 
factor 


No. of 
Constants 


Pointer to 
first byte 


Exp. 
modifier 


Scale 
modifier 


Unused 


Bit 1 
byte 
flag 


Length 
modifier 
value 




i 



Bytes 



Vterk 
bucket 
count 



Work 
bucket 



External Symbol Dictionary 

External symbol dictionary items are gen- 
erated by START, CSECT, private code, COM, 
DSECT, external dummy sections, ENTRY, 
EXTRN, and V-type DC instructions. Formats 
are described below. 



Control Sections (CSECT) and External 
References (EXTRN) . 



Adjective code - 

Bit 1 Not used. 

Bit 2 1 - Pointer present. 

Bit 3 1 - XD complete (external 
definition) 

Bit 4 1 - LD complete (label 
definition) 

Bit 5 1 - Defined in DSECT or COM. 

Bits 6-7 External symbol dictionary 
type 

00 - CSECT 

01 - EXTRN 

10 - DSECT 

11 - NAME 



Byte 



1 


3 


1 


3 


8 


Type 


Address 


External Symbol 
Dictionary ID 


Length 


Name, padded 
translated 



Entry Definitions 



Bytes 



1 


3 


1 


2 


1 


8 


Type 


Add ress 


Flag 


(Zero) 


Label 
Definition ID 


Name 



Flag - Set to 1 to indicate completion of 
the item . 

Label definition ID - External symbol 

dictionary ID of the containing control 
section. 
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External Dummy References (ENTRY) 

Bytes 1 



Type 


ESDNO 


Alignment 


ESDID 


Length 


Name 



ESDNO - Used to refer to the DSECT if this 
item was generated by a Q-type address 
reference to a DSECT. It is zero if the 
item was generated by a DXD instruction. 

Alignment - One less than the number of 
bytes in the unit of alignment,, e.g., 
7 for double word alignment. 



Literal Base Table Entries 



ESDID 


Location 


Length (8- 
byte string) 


Length (4- 
byte string) 


Length (2- 
byte string) 



ESD/ID - The external symbol dictionary ID 
number of the control section where the 
literal pool is located. 

Location - This is the relative address ob- 
tained from the statement work bucket 
attached to the associated LTORG 
statement . 



Cross Reference Dictionary Entries 

Bytes 8 1 2 2 3 1 



Symbol 


FLAG A 


Statement 
No. 


Length 
Attribute 


Value 


FLAGB 



FLAGA - 

F0, fi - Base symbol (type 1) 

Fl, r - Reference to symbol (type 2) 

F2, g - Multiply defined symbol (type 3) 

FLAGB - 

- Absolute value 

Not - External symbol dictionary ID 



PHASE FI 

Literal Adjustment Table 

Bytes 13 13 1 



ESD 
ID 


A 


ESD 
ID 


B 


ESD 
ID 


C 


ESD 
ID 


D 



ESD/ID - External symbol dictionary identi- 
fication of the 3 bytes that immediately 
follow this byte. 

A - The adjusted assembler address of the 
beginning of the 8-byte string of 
literals whose pool is described by 
this table. 

B - Same as A, except as applicable to the 
4-byte string. 

C - Same as A, except as applicable to the 
2-byte string. 

D - Same as A, except as applicable to the 
1-byte string. 



NO 1 ^: There is one such table for each 
LTORG statement or for the END assembler 
instruction in the program. 

Trailer - Indicates the end of the literal 
adjustment table. This format is as 
follows: 



Bytes 



1 



7F 7F 7F 7F 



PHASE F8 



Relocation Dictionary Entries 



Bytes l 



Table 
ID 


Position 
ESD/ID 


Relocation 
ESD/ID 


Flag 


Symbol 
address 
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Table ID - Each group of 20 RLD entries is 
preceded by a 1-byte table identifier 
of '08*. 

Position ESD/ID - Number of the control 
section where the address constant is 
located. 

Relocation ESD/ID - Number of the control 
section where the symbol is defined. 

Flag - 

Bits 0-1 00 

Bits 2-3 00 - A-, Y-, and Q-type 
address constants. 
01 - V-type address constant. 
11 - CXD. 

Bits 4-5 Length of address constant 
minus one (L-l) 



Bit 6 External symbol dictionary 
(ESD) ID sign. 

- plus (+) 

1 - minus (-) 

Bit 7 - next entry on the same card 
has the same position ID 
and the same relocation ID. 
1 - next entry on the same card 
has a different position 
ID and/or relocation ID. 

NOTE: There is no carry-over from card 
to card. That is, the last entry on a 
card always has a 1 in bit position 7 
even if the first entry on the next card 
has identical position ID and relocation 
ID fields. 

Symbol address - Assembler assigned address 
of a symbol used in A-, Y-, or V-type 
address constants, or of the second 
operand of CCW. 
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APPENDIX C. CONTROL PROGRAM SERVICES 



Macro Instruction 

GET Reads logical records from files 
organized by the file definition 
macro instruction. 

PUT Writes logical records into files 
organized by the file definition 
macro instruction. 



READ Reads the next sequential physical 
record from a file organized by 
the file definition macro DTFMT 
(define the file for magnetic 
tape) . 

WRITE Writes a physical record or a 

portion of a physical record onto 
a file organized by the file 
definition macro DTFMT. 



NOTE: DOS with TWFs uses DTFMT and DOS 
with DWFs uses DTFSD. 

CHECK Waits (if necessary) for the com- 
pletion of a READ or WRITE opera- 
tion and detects errors and 
exceptional conditions. 

NOTE Obtains the relative position of 
the last physical record that was 
read or written from a specified 
file. 



Macro Instruction 

POINTR Repositions a file so that the 
next read operation involves a 
record previously identified by 
a NOTE macro instruction. 

POINTW Repositions a file so that the 
next write operation involves 
a record previously identified 
by a NOTE macro instruction. 



POINTS Repositions a file to the first 
record. 



OPEN Makes a file available for use. 



CLOSE Makes a file unavailable for use. 



FETCH Loads and transfers control to 
another phase of the assembler. 

LOAD Loads a phase or program segment 
and returns control to the caller, 

CNTRL Performs certain physical, non- 
data operations on the device as- 
sociated with the specified file, 
e.g., rewind file. 



Appendix C. Control Program Services 
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APPENDIX D. ASSEMBLER ORGANIZATION 

The physical organization of the assembler means "16gical phase". To DOS however, 

differs somewhat from the logical organi- a phase is a unit of code — consisting 

zation described in this manual. This of one or more Relocatable Library modules 

appendix summarizes the physical organiza- — which exists in the Core Image Library, 

tion of the assembler and correlates it The Linkage Editor map shows the core 

with the logical organization. image phases and CSECTS which make up the 

The first eight bytes of each core image assembler, the overlay structure, and the 

phase is the phase identifier. It indicates relationship of logical phases and physical 

the phase, version number, and level number structure, 
of the assembler. Table D2 is a storage allocation map 

Table Dl is an annotated Linkage Editor which shows the relative location of the 

map. It was produced by a DOS system with CSECTs, dictionaries and tables, and 

a 10K supervisor. Note that the term buffers. It also illustrates the overlay 

"phase", as used throughout the manual, structure of the assembler. 
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Table Dl. Annotated Linkage Editor Map 



JOB LINK 



12/14/67 DISK LINKAGE EDITOR DIAGNOSTIC OF INPUT 



ACTION 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 



TAKEN MAP 
INCLUDE IJYASM 
PHASE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
PHASE 
INCLUDE 
PHASE 
INCLUDE 
PHASE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
PHASE 
INCLUDE 
INCLUDE 
PHASE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
PHASE 
INCLUDE 
INCLUDE 
PHASE 
INCLUDE 
ENTRY 



ASSEMBLY, S.NOAUTO 

IJYFO, IIJYFORTO,IJYFOMTM,IJYFOSDM,IJYFOGIO) 

IJYCM 

IJYIN 

IJYF2 

IJYF1 

IJYFO, (I JYFOTOF) 

ASSEM3, I JYCMORG.NOAUTO 

IJYF3 

ASSEM3E,IJYCMORG,NOAUTO 

IJYF3E 

ASSEM7,IJYF0GI0,N0AUT0 

IJYRTA 

IJYF7I 

IJYF7E 

I JYF 7D 

IJYF7X 

IJYF7N 

IJYF7V 

IJYF7L 

IJYF7G 

IJYF7C 

IJYF7S 

ASSEMF I , I JYRTA(H,NOAUTO 

I JYRT8 

I JYF 10 

ASSEMF8,IJYFI0,N0AUTO 

IJYF8I 

IJYF8C 

IJYF8M 

IJYF8A 

IJYF8P 

IJYF8D 

IJYF8V 

IJYF8S 

IJYF8L 

IJYF8N 

ASSEMFPP.IJYFIO.NOAUTO 

IJYFPP 

IJYFO 

ASSEMA8T,IJYFI0,N0AUT0 

IJYABT 

IJYF1BGN 
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Table Dl. Annotated Linkage Editor Map 



Logical 
Phase 



PHASE XFr-AD L cO r e HIcORE D sk_ao 
C ASSEMBLY 0085E0 002800 0093D3 1C 7 2 



ESO TYPE LABEL 



FO 



FCOM 



FIN 



V. 



F7 



F2 



" ( 

F3 { ASSEM3 
F3E { ASSEM3E 

r 

ASSEM7 



003L38 003130 004F9F ID 5 2 
003138 003130 00349F 10 8 1 
004552 002F88 008C4F ID 8 2 



RTA \ 



CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

* ENTRY 

CSECT 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

CSECT 

* ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

» ENTRY 

CSECT 

CSECT 

CSECT 

CSECT 

ENTRY 
ENTRY 

* ENTRY 
ENTRY 
ENTRY 
ENTRY 

» ENTRY 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

CSECT 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 

ENTRY 



IJYFORTO 
IJYF0S01 
IJYF0S02 
IJYF0S03 
IJYFOESW 
IJYFOABT 



LOADED REL-FR 

002800 002800 

002820 

0028B8 

002950 

00281C 

002808 



IJYFOSDM 002C08 



IJYFOMTM 0029E8 



IJYFOGIO 
IJYFOCHK 
IJYFONTE 
IJYFOPTR 
IJYFOPTW 
IJYFORED 
IJYFOWRT 



002F88 
002FE0 
003092 
003040 
003004 
002FB4 
002F88 



002800 
002800 
002800 



IJYFOTDF 009320 



IJYCMCOM 
IJYCMORG 



IJYINIPT 
UYINBF1 



IJJCPD2 
IJJCPD3 



003 OD 8 
003130 



003C18 
003C94 



003D38 
003D38 



IJYINLIB 003E38 



IJYF2EDT 
IJYF2GLD 
IJYF2EDC 
IJYF20CL 
IJYF2E0F 
IJYF2GSC 

IJYF1INT 
IJYF1BGN 

IJYF300u 

IJYF3E00 

IJYRTA 

IJJCPDV 

IJYRTA01 

IJYRTA02 

IJJCPDVl 

IJJCPDO 

IJJCPDON 

IJYRTA03 

IJYRTA04 

IJYF7I 

IJYF7E 

IJYF7E02 

IJYF7E04 

IJYF7E05 

IJYF7E07 

IJYF7E08 

IJYF7E06 

IJYF7E09 

IJYF7E10 

IJYF7E11 

IJYF7E12 

IJYF7E03 

IJYF7E01 

IJYF7E13 

IJYF7D 

IJYF7X 

IJYF7N 

IJYF7S 

IJYF7SND 

IJYF7S01 

IJYF7S02 

IJYF7S03 



004178 
0079D8 
006148 
0072D0 
007 7E6 
00757E 

008508 
008 5£0 

003130 

003130 

002F88 

003090 
0032A0 
003388 
003090 
003090 
003090 
003420 
004078 

004078 

004C80 
004CAC 
004D76 
004E48 
004F3A 
004FCE 
004F0E 
005070 
0050FA 
005158 
0051E8 
004D04 
004C80 
005238 

005628 

006498 

006EE8 

008910 
008C50 
008910 
008916 
008AEC 



008A48 
0030D8 

003C18 

003C18 

003C18 
004178 



003130 
003130 
002F88 
002F88 



004078 
004C80 



005628 
006498 
006EE8 
008910 



CSECT Description 

Master Root Segment — contains utility 
DTF's (DTFSD) and linkage to phase ABT 



Disk work file I/O logic module (SDMODW) 
Tape work file I/O logic module (MTMOD) 
Macro Generator I/O interface routines 



Alternate tape work file DTF's (DTFMT) 

Macro Generator Common — contains 
common constants and communications 
work area 

SYSIPT DTF (DTFCP) 



SYSIPT I/O logic module (CPMOD) 

SYSSLB I/O logic (DTFSL) 
Input and macro editing 



0085D8 Initialization 



Macro generation and conditional assembly 

Macro Generator abort phase 

ACT equates and translate table 

SYSLNK, SYSLST, and SYSPCH logic 
module (CPMOD); SYSPCH and SYSLNK 
DTF's (DTFCP);utility file I/O routines; 
Assembler Control Table (ACT) 



I/O subroutines 

External Symbol Dictionary (ESD) 
processor 



DC/DS evaluation routine 
GET statement 
AUTOTEST processor 
Symbol Table Processor 
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Table Dl. Annotated Linkage Editor Map 



Logical 
Phase 



» <l 



ASSEMFI 0047A8 004078 006A0F 



/"ASSEMF8 004B94 0047A0 009393 IE 9 1 



F8 



FPP 



ABORT 



ASSEMFPP 0047A8 0047A0 009A1F 



ASSEMABT 0047A8 0047A0 004DC6 



DSK-AD E$0 T yPE 


LABE L 


LOADED 


REL-Fr 


CSECT 


IJYF7V 


0071B8 


0071B8 


CSECT 


1 JYF7L 


G07A6S 


007A68 


CSECT 


IJYF7G 


007B38 


007B38 


CSECT 


IJYF7C 


007C30 


007C30 


IE 5 2 CSECT 


IJYRTB 


004078 


004078 


ENTRY 


IJYRTB01 


004 1D0 




ENTRY 


IJYRTB02 


00435C 




CSECT 


IJYFIO 


0047A0 


0047A0 


IE 9 1 CSECT 


IJYF8I 


0047A0 


004 7A0 


CSECT 


IJYF8C 


004D78 


004D78 


ENTRY 


IJYF8C01 


004FA4 




CSECT 


IJYF8H 


005140 


005140 


ENTRY 


IJYF8M01 


005748 




ENTRY 


IJYF8M02 


005926 




CSECT 


IJYF8A 


005DE8 


005DE8 


ENTRY 


IJYF8A01 


006658 




CSECT 


IJYF8P 


006978 


006978 


ENTRY 


IJYF8P03 


007150 




ENTRY 


IJYF8P02 


006FBE 




ENTRY 


IJYF8P04 


0073AF 




ENTRY 


IJYF8P01 


006C12 




CSECT 


IJYF8D 


007758 


007758 


ENTRY 


IJYF8001 


008 14E 




ENTRY 


IJYF8D02 


0082BC 




CSECT 


IJYF8S 


008CD0 


008CD0 


CSECT 


IJYF8V 


008458 


008458 


CSECT 


IJYF8L 


008D90 


008D90 


CSECT 


IJYF8N 


008E60 


008E60 


CSECT 


IJYF8P05 


0075C8 


006978 


IF 5 1 CSECT 


IJYFPP 


0047A0 


0047A0 


CSECT 


IJYFD 


008270 


008270 


ENTRY 


IJYFDEND 


009A20 




20 1 2 CSECT 


IJYABORT 


0047A0 


0047A0 


CSECT 


IJZM0012 


004C20 


0047A0 


CSECT 


IJJCPDIN 


004C40 


0047A0 



CSECT Description 
Expression evaluation routine 

urror legging routine 

Literal DC generator 

Mainline control routine 

RTB ~ contains SYSLST DTF (DTFCP) 
and output routine 

ESD writing routine 
initialization and I/O routines 
Mainline control routine 

Machine operation processor 
Assembler operation processor 



Listing and object deck output 
routine 



DC evaluation routine 

Symbol Table subroutine 
Expression evaluation subroutine 
Log error subroutine 

Floating/fixed-point conversion routine 
Output routine constants 
Cross-Reference and RLD processor 
Error record processor 



Assembly abort routine and Syslog DTF 
(DTFCN) 
DTFCN logic portion 

SYSLST I/O logic module (CPMOD) 
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Table D2. Storage Allocation Map 



ENTRY 
POINT — * 
(IJYF1BGN) 



IJFORTO 

IJYFOSDM 

IJYFOMTM 



IJYINIPT 
IJJCPD2 
IJYINLIB 



IJYFORTO 
IJYFOSDM 
IJYFOMTM 



IJYINIPT 
IJJCPD2 
IJYINLIB 



GLOBAL 
AND LOCAL 
DICTIONARY 
WORK SPACE 




DURING 
F3 



IJYFORTO 
IJYFOSDM 
IJYFOMTM 



IJYCMCOM 
(portiql) 



IJYF3000 

OR 
IJYF3E00 



GLOBAL 

AND 

LOCAL 

DICTIONARY 

WORK 

SPACE 



IJYFORTO 
IJYFOSDM 
IJYFOMTM 



IJYRTA 
IJJCPDV 



ESDSEG.RES.TBL 



SYMBOL 
TABLE 
8.7 K 
MIN. 



IJYFORTO 
IJYFOSDM 
IJYFOMTM 



IJYRTA 
IJJCPDV 



ESDSEG.RES.TBL 



SYMBOL 
TABLE 



IJYFORTO 
IJYFOSDM 
IJYFOMTM 

IJYRTA 
IJJCPDV 



DURING 
FPP 

IJYFORTO 

IJYFOSDM 

IJYFOMTM 

IJYRTA 

IJJCPDV 



XREF 
SORT 
BUFFER 



DURING 
ABORT 

IJYFORTO 
IJYFOSDM 
IJYFOMTM 



IJYABORT 
IJZM0012 
IJJCPDIN 



^ 



SYMBOL 
TABLE 



3625 Bytes — Max. Buffer Size 

64K Bytes — Max. Dictionary and Table Sizes 

PPEND — Upper limit of core available to Assemble 
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APPENDIX E. DICTIONARY AND TABLE CONSTRUCTION TECHNIQUES 



HASH TABLE 

A hash table is used by the assembler for 
inserting or locating variable or fixed- 
length record entries in dictionaries and 
symbol tables. A hash table consists of 
fixed-length address entries (called point- 
ers) which point to locations in the dic- 
tionaries/tables. The range of the hash 
table is the number of such pointers that 
can be placed in the space reserved for the 
table. When it is desired to make an entry 
in the dictionary/table, e.g., enter a 
global symbol declaration, or to locate an 
entry in the dictionary/table, e.g., to ob- 
tain the relative address of a symbol, the 
associated symbol or other datum must first 
be randomized to produce an index number. 
This is called hashing. (Operation codes 
are included in the generation of index 
numbers for the macro dictionaries.) The 
randomizing algorithm is such that the re- 
sulting index number will be a whole number 
between zero and the hash table range, 
minus one. This index is then used 
to index into the hash table and inspect 
the associated pointer (address entry) in 
the hash table. This entry will be zero 
until a record entry, randomizing to this 
index number, has been entered in the 
dictionary/ table . Records are entered in 
the dictionary/table sequentially, and a 
dictionary/table pointer, containing the 
next available address, is used for in- 
serting new records. Several different 
data (called synonyms) may randomize to the 
same index number. Because this index num- 
ber points to an associated entry in the 
hash table where only one address can be 
stored, chaining must be used to enter or 
locate the synonym records. 



CHAINING 

Chaining is a technique whereby an entry 
to one record points to the next record, 
and so on. Forward chaining and backward 
chaining are the two types of chaining 
used by the assembler. 

In forward chaining, a hash table pointer 
entry points to the first entry of a chain. 
The first field of each entry contains a 
chaining address pointing to the next entry 
in the chain. The last entry in each chain 
has all zeros in the chaining address field. 

In backward chaining, a hash table point- 
er entry points to the last entry of a 
chain. The first field of each entry con- 
tains a chaining address pointing to the 



preceding entry in the chain. The first 
entry in each chain has all zeros in the 
chaining address field, or, in certain 
applications, the pointer field is 
eliminated in the first entry. 



Forward Chaining Techniques 

The symbol, literal, or other datum whose 
record is to be entered is hashed to obtain 
an index number. This number is used to 
point to the associated address entry in 
the hash table. The hash table entry will 
be zero if no other item has yet hashed to 
the same index number, i.e., this is the 
first record entry for this index number. 
If this is not the first entry to this 
index number, the hash table will contain 
the address of the first record entered in 
this chain. The record at that address 
will be checked for duplication. If there 
is no duplication, the content of the chain 
pointer field is checked in the record. This 
pointer will be either a chaining address 
pointing to the location of the next record 
in the chain, or zero. Zero indicates that 
this is the last (or only) record in the 
chain. If the pointer field contains a 
chaining address, the next record is check- 
ed for duplication. Again, if there is no 
duplication, it is checked for a zero chain 
pointer (zero = last record in the chain) . 
The scan is continued in this manner until 
a duplication is found, when the procedure 
is terminated without making a new entry, 
or until a zero pointer is reached, in 
which case the new record is entered in 
the dictionary/table. In the latter case, 
the zero pointer is replaced with the 
address of the dictionary/table pointer, 
i.e., the address of the next available 
dictionary /table location, the new record 
is entered at this location with a zero 
pointer, and the dictionary /table pointer 
is updated with the length of the current 
entry. 

The procedure used to locate records in 
the dictionaries/tables is the same as 
entering, except that when the compared 
records are equal, the pertinent informa- 
tion is extracted, or the value informa- 
tion is inserted, as the case may be. See 
Figure El. 



Backward Chaining Techniques 

The record to be entered is hashed to an 
index number. This index number is used 
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Figure El. Hash Table and Forward Chaining 



to point to an associated address in the 
hash table. The hash table entry will be 
zero if no other record has yet hashed to 
this index number. If this is not the 
first entry, the hash table will contain 
the address of the last record entered, 
i.e., the most current entry. The record 
at this address will be checked for dupli- 
cation. If there is no duplication, the 
content of the record's chain pointer field 
is checked. This chain pointer field con- 
tains the address of the previous entry in 
the chain, or zero, if it is the first (or 
only) entry in the chain. 

The chain is scanned starting with the 
last entry and continuing through the 
first entry, or until a duplicate record 
is encountered. In the latter case, the 



scan is terminated and the record is not 
entered. If there is no duplication, the 
address of the last record in the chain is 
placed in the chaining address field of 
the record entered. The address of the 
dictionary /table pointer, i.e., the address 
of the next available location in the 
dictionary/table area, replaces the pointer 
in the hash table, and the record is in- 
serted at this address in the dictionary/ 
table. 

The dictionary /table pointer is updated 
by the length of the record just stored to 
indicate the new available storage address. 

The procedure to locate records in the 
dictionaries/tables is the same as enter- 
ing, except that when trie compared records 
are equal, the pertinent information is 
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extracted, or the value information is 
inserted, as the case may be. See Figure 
E2. 



Chaining Usage 

In Phase F2, forward chaining is used in 
building the global dictionary. However, 
in addition to the many forward chains 
created, all macro name entries in the 
global dictionary are linked together 
by backward chaining. Therefore, each 
macro entry has two pointer fields . The 
first field points forward to the next 
record in the chain, which originated 



from the same hash table pointer, and the 
last field points backward to the preceding 
macro entry in the macro chain. The first 
macro entry in the macro chain has a zero 
macro chain pointer. 

Backward chaining is also used in Phase 
F2 to built local dictionaries • 

In Phases F7 and F8, the symbol table 
area is shared by symbols and literals 
in a random fashion. Symbol entries are 
reached through pointers located in the 
symbol hash table and are chained backwards , 
The first symbol entry has no pointer 
field. Literal entries are reached through 
the literal hash table and are chained 
forward. 
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Figure E2 . Hash Table and Backward Chaining 
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APPENDIX F. INTERNAL ASSEMBLER CODE TABLE 



All characters in source statements are 
translated to an internal hexadecimal 
coding. Translation is done to facilitate 
comparisons and some arithmetic operations 
and to obtain a degree of character set 
independence . 

The internal language is translated 
back to external code before output. Bit 
configurations not representing DOS/360 
Assembler Language characters, e.g., valid 
overpunch characters in fields PUNCHed or 
REPROed, are not affected by the transla- 



tion. (They are translated into themselves.) 
See Table, below. 

Application of the translate table also 
allows the user to assemble programs written 
in other than DOS/360 Assembler Language 
by providing a different translate table 
for the conversion. 

The collating sequence of the internal 
language differs from the standard collating 
sequence. In the standard collating sequence, 
numeric values are higher than alphabetic 
or special characters. 



Standard 


Machine Internal 


Standard 


Machine Internal 


Graphic 


Hexadecimal 


Graphic 


Hexadecimal 


Symbol 


Code 


Symbol 


Code 





00 


Q 


1A 


1 


01 


R 


IB 


2 


02 


S 


1C 


3 


03 


T 


ID 


4 


04 


U 


IE 


5 


05 


V 


IF 


6 


06 


W 


20 


7 


07 


X 


21 


8 


08 


Y 


22 


9 


09 


Z 


23 


A 


0A 


$ 


24 


B 


0B 


# 


25 


C 


OC 


@ 


26 


D 


0D 


+ 


27 


E 


0E 


- 


28 


F 


OF 


* 


29 


G 


10 


/ 


2A 


H 


11 


, 


2B 


1 


12 


= 


2C 


J 


13 


& 


2D 


K 


14 




2E 


L 


15 


( 


2F 


M 


16 


) 


30 


N 


17 


■ 


31 


O 


18 


blank 


32 


P 


19 
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APPENDIX G. 



SWITCHES 



These switches are set in the code of the 
macro generator and assembler phases. 
They do not appear in any dictionaries, 
tables, or records. 



PHASE F3 SWITCHES 



X'01 



Macro instruction 
mode - set when a 
macro instruction is 
encountered so that 
nesting may be 
recognized. 



SUBSW 



MISWIT 








Bit No. 


Hex. Sw. 






Bit No. 


Hex. Sw. 






















6 


X'02 1 


1 - 


Set when MODESW has 





X'80 1 


Not 


used 








been saved. Char. 


1 


X'40 1 


- 

1 - 


Do another pass on 

macro instruction 

operands 

2nd pass completed 

on macro instruction 

operands 








or arith. mode must 
be saved when a sub- 
scripted left paren- 
theses is encountered 
so that this mode may 
be restored after the 


2 


X'20 f 


1 - 


Macro instruction 
being processed 








subscript dimension 
is computed. 


3 


X'10' 


1 - 


Entry is a sublist 


7 


X'01' 




This must always be 


4 


X'08' 


- 

1 - 


Entry is to be made 
from prototype 
Entry to be made 
from macro instrucion 








initialized to the 
value of 1, used when 
original MODESW is 
restored. 


5 


X'04' 


1 - 


Nest aborted; no 
room to store 










6 


X'02' 


1 - 


Macro aborted during 
build of parameter 
table 


MODESW 








7 


X'01' 


1 - 


Max. record exceeded 
(used by WRITE rou- 
tine) 


Bit No. 


Hex. Sw. 

















X'80' 


1 - 


SYSLST to provide 


SWITCH 














alternate to symbolic 
parameters 


Bit No. 


Hex. Sw. 






1 


X'40' 


1 - 


2 expressions in 
SYSLST 


2 


X^O 1 


- 

1 - 


NOTE in IOMAC Routine 
No need to NOTE in 
IOMAC routine 


2 


X'20 1 


1 - 


Concatenation has 
occurred in string 
area 


4 


X'08' 


- 

1 - 


Use PNTR in IOMAC 

routine 

Do logical POINTW in 

IOMAC routine 


3 


X'10' 


1 - 


Error switch in 
substring routine - 
signal to use 
null string 


7 


X'01 1 


1 - 


End of Expr. 1 or 








later on 








Expr. 2 of substring 


4 


X'08' 


1 - 


First time switch - 








has been reached 








set after first 
char, string 
has been placed 


NESTSW 














in string area 










5 


X'04' 


1 - 


Substring mode 


Bit No. 


Hex. Sw. 






6 




Not 


available for use 










7 


X'01' 


- 


arithmetic expr. 


6 


X'02 1 


1 - 


Set when a new block 
has been read when 
processing a macro 
instruction. 






1 - 


mode 

character 
expression 
mode 
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PHASE F7, FI, F8 AND FPP SWITCHES 



Name 


Comment 


Name 


Comment 


CTLOC 


Current Location Counter 


CTPGLNCT 


Page Line Count 


CTSEQN 


Current Statement Sequence Number 


CTMRSRTN 


MRS Return 


CTLEN 


Current Statement Length 


CTZERO 


Two Full Words of Zeroes 


CTITLE 


First Title Name, Opnd.Len, Opnd.Ptr. 


CTWORK 


256 Byte Work Area 


STVALU 


Value For STPUT Entries 


CTONWP 


Next Write Pointer On OVF 1 


CPRIME 


Prime Divisor For Symbol Table 


CTRXF 


First XRF Block PTR On OVF1 


CSTVAL 


Value From START card 


CTRLBT 


First LBT Block PTR On OVF 1 


CTXLEN 


Text Block Length 


CTRERR 


First Error Block (PH8) 


CNOESD 


Number of ESDs 


CTCXRF 


XRF Block Count 


CENTCT 


Number of Entries 


CTCLBT 


LBT Block Count 


CLASID 


Last ID 


CTCRLB 


RLD Block Count 


CTNDID 


Next DSECT ID 


CTCERR 


Error Block Count (PH8) 


CESDNO 


Current ESD Number 


CTCLAT 


LAT Block Count On OVF2 


CSGCTR 


ESD Resident Segment Counter 


CTLALN 


LAT Length Indicator 


CPCNO 


Private Code ESD Number 


CTLITA 


Current Literal Pool String Lengths 


CCMNO 


Common ESD Number 


CTLITB 


Current Literal Pool String Counts 


STLONG 


Length Attribute For STPUT Entries 


CTXSAV 




ESSGSZ 


ESD Segment Size 


CTFSTN 


ESD No. of First CSECT 


CESDID 


Current ESD ID 


CTDATE 


Date For Listing 


CTPCSW 


Private Code Switch 


CTLINECT 


Print-Line Count 


CTCMSW 

CFSTID 

CTYPE 

CTLIT2 

ESDID 

ADJCOD 


Common Switch 
First CSECT ID 
Current CSECT Type 
LTORGOr END Card Switch 
Assigned ESD ID 
Adjective Code 


CADJTB 

RR2SWH 

ERSWH 

SPACSW 

EJCTSW 


Adjustment Table Base 
RR2 Instruction Type Switch 
ERROR Switch 
SPACE Switch 
EJECT Switch 


CTALIN 


Alignment Code 0-B, 1-H,3-F,7-D 


REPSW 


REPRO Switch 


CTITSW 


Iteration Switch 


CCRDCT 


Card Count 


CTPDS1 


Defined Symbols Req. For IEUF7V 


CTLATL 


Literal Adj. Tab.- Last Byte + 1 


CTCLSI 


First Pass Indicator 


ENDSWH 


END Switch 


CTLITI 


Literal Pool Complete During Subst. 


FBOPRN 


Operand Pointer 


CTERRI 


Error Record Indicator 


CTLATB 




CTPH7C 


Phase F7 Complete Indicator 


F8CADJ 


Current Adjustment 


CTSYMF 


Symbol Table Full Indicator 


ALIGN4 


For Aligning 


CTPCHI 


Punch Option Indicator 


F8ALLB 


Full Word Of Bits 


CTCGOI 


CGO Option Indicator 


F83BYT 


3 Bytes Of Bits, Low Order 


CTITLI 


First Title Processed Indicator 


F82BYT 


2 Bytes Of Bits, Low Order 


CTLSTI 


List Option Indicator 


F81BYT 


1 Byte Of Bits, Low Order 


CTGENI 


List Gen.Option Indicator 


F8PON 


Print Option ON-OFF Switch 


CTERLI 


List Error Option Indicator 


F8PGEN 


Print Option GEN-NOGEN Switch 


CTXRFI 


X-Ref. Option Indicator 


F8PDAT 


Print Option DATA-NODATA Switch 


CTTSTI 


TESTRAN Option Indicator 


F8ZERO 


One Full Word Of Zero 


CTSDVI 


Self Defining Value Indicator 


F8INST 


16 Byte Instruction Bldg. Area 


CTLCRI 


Location Counter Reference Indicator 


F8ZRO 


One Full Word Of Zero 


CTMODE 


Mode Indicator 


PYRSW 




CBDNO 


Blank DSECT ESD No 


F8YDC 




CBDSW 


Blank DSECT ID No 


CTESRN 


ESD Seg. Count 
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APPENDIX H. GLOSSARY 



The terms in this glossary are defined 
relative to their use in this publication 
only. These definitions may differ from 
those in other publications. 

Assemble: To prepare an object language 
program from a symbolic language pro- 
gram by substituting machine operation 
codes for symbolic operation codes and 
absolute or relocatable addresses for 
symbolic addresses. 

Assembler Operation Code: A hexadecimal 
one-byte code assigned to all assembler 
instructions by programming systems 
for internal use. 

Attributes: Characteristics of certain 
elements in statements processed by the 
assembler. There are six attributes: 
type, length, scaling, integer, count, 
and number. The macro generator proces- 
ses all of them; the assembler portion, 
only the length attribute. 

Concatenation: The process of linking to- 
gether, or chaining, or joining. 

Conditional Assembly: The selective as- 
sembly of those source language state- 
ments that satisfy predetermined con- 
ditions, e.g., tests of values that may 
be defined, set, or changed during the 
course of the assembly procedure. The 
conditional assembly precedes the 
regular assembly procedure. Conditional 
assembly allows a programmer to specify 
assembler language statements which may 
or may not be assembled depending on 
conditions evaluated at assembly time. 

Control Program: A collective term for the 
operation and resource controlling rou- 
tines of the operating system. 

Control Section: The smallest separately 
relocatable program unit, always loaded 
into a contiguous main storage area. A 
control section is an entity. Its name, 
if there is one, is defined by a CSECT 
or START statement. 

Core Image Module: An executable logical 
unit of coding. It is the output of the 
linkage editor in a format suitable for 
loading into main storage. 

Data Set: A named collection of data. 

Device Independence: The ability to request 
input/output operations without regard 



to the characteristics of the input/ 
output devices. 

Direct Access: Retrieval or storage of data 
by a reference to its location on a vol- 
ume, rather than relative to the prev- 
iously retrieved or stored data. 

DTF (Define The File) Table: A region in 
storage used for communication between 
the source program, the control program, 
and the access routines. A control 
block containing information for access 
routines pertinent to data storage and 
retrieval. 

Edited Text: Source text with appended worx 
and code fields which map and describe its 
attributes. 

External Symbol Dictionary: Part of an 
object or load module that identifies 
external names (control sections, ENTRY 
statements , common areas , and private 
codes) and external references (EXTRN 
statements and V-type address constants) 
occurring in the module. 

External Symbol Dictionary Identifier (ESD- 
ID) : A one-byte number identifying a 
control section or other external symbol 
dictionary entry. 

Global Dictionary: A core storage resident 
table containing machine and assembler 
operation codes, macro mnemonics, and 
global variable symbols . 

Global Variable Symbols: Global SET sym- 
bols (the only type of global variables) 
that communicate values between state- 
ments in one or more macro definitions 
and statements outside macro definitions. 

Hashing: Generating an address between two 
limits by randomization. 

Hash Table: A table, accessed through 

generated numbers (i.e., randomization), 
pointing to entries in a dictionary or 
table. 

Inner Macro Instruction: A macro instruc- 
tion used as a model statement in a 
macro definition. 

Linkage Editor: A program that produces a 
load module from object and/or load 
modules. The output load module is in 
a format suitable for loading and 
execution under the control of the 
control program of the operating system. 
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Literal : A representation of a constant 
which is entered into a program by 
specifying the constant in the operand 
of the instruction in which it is used. 
The assembler stores the value specified 
by the literal in a literal pool, and 
places the address of the storage field 
containing the value in the operand 
field of the assembled source statement. 



Literal Pool: A portion of the object pro- 
gram containing literals processed by 
the assembler. 

Local Dictionary: A table containing 
sequence symbols, ordinary symbols, 
local SET symbols, and macro instruction 
parameters. 



Local Variable Symbols : Symbols that com- 
municate values between statements in 
the same macro definition, or between 
statements outside macro definitions. 
The following are local variable symbols 

1. Symbolic parameters 

2. Local SET symbols 

3. System variable symbols 



Logical Record: A record from the stand- 
point of its content, function, and use 
rather than its physical attributes; 
i.e., one that is defined in terms of 
the information it contains (contrasted 
with Physical Record) . 



Macro Definition: A set of statements that 
provides the assembler with the mnemonic 
operation code and the format of the 
macro instruction, and the sequence of 
statements the assembler generates when 
the macro instruction appears in the 
source program. 

Macro Instruction: A source program state- 
ment for which the assembler generates 
a sequence of assembler language state- 
ments. Three types of macro instruc- 
tions may be written: 

1. Positional - operands in fixed order, 

2. Keyword - operands in variable order, 

3. Mixed-mode - combination of above. 



Macro Instruction Prototype: The second 
statement of every macro definition; it 
specifies the mnemonic operation code and 
the Format of all macro instructions that 
refer to the macro definition. 

Main Storage: All addressable storage from 
which instructions can be executed or 
from which data can be loaded directly 
into registers. 

Model Statements: The macro definition 
statements from which the desired se- 
quences of assembler language statements 
are generated. 

Module : A logical unit of coding that per- 
forms a function or several related 
functions. 

A source module is a set of source 
language statements prepared for input 
to a language translator. 

An object module is the output of a 
language translator (e.g., assembler). 
It is a machine language program in re- 
locatable format. A load module is the 
output of the linkage editor. It is in 
relocatable and executable format. 

A module is composed of one or more 
sections (see Control Section) . 

Object Program: A machine language pro- 
gram which is the output after trans- 
lation from the source program. 

Open Code: All source statements except 
those generated from macro definitions. 
Open code is read from SYSIPT. 

Ordinary Symbol : One alphabetic character 
followed by zero through seven alpha- 
meric characters. 

Outer Macro Instruction: A macro instruc- 
tion that is not used as a model state- 
ment in a macro definition. 

Overlay: A section of a program loaded into 
main storage, replacing all or part of 
a previously loaded section. 

Physical Record: A record from the stand- 
point of the manner or form in which it 
is stored, retrieved, and moved; i.e. , 
one that is defined in terms of physical 
qualities or is meaningful with respect 
to access (Contrasted with Logical 
Record) . 
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Pointer: An address used to point to a 
table, dictionary, or data set entry. 

Position Identifier: A two-byte value 

specifying the sign and external symbol 
dictionary identifier (ESD-ID) of the 
control section in which a relocatable 
constant occurs. 

Prototype Statement : See Macro Instruc- 
tion Prototype. 

Record: A general term for any unit of 
data that is distinct from all others 
when considered in a particular context. 

Relocation Dictionary (.RLD) : Part of an 
object or load module produced by the 
assembler that identifies address con- 
stants in the module. 

Relocation Identifier: A two-byte value 
specifying the sign and external symbol 
dictionary identifier (ESD-ID) of an 
item referenced by a relocatable constant. 

Source Program: A series of statements in a 
source language that is input to the 
translation process. 



Subsetted Global Dictionary: The global 
dictionary — passed to Phase F3 — 
which contains only global variable 
symbols. The machine and assembler 
operation codes and the macro names are 
no longer needed and have been removed. 



Subsetted Local Dictionary: A local 

dictionary ■ — passed to Phase F3 — after 
it has been sorted on the little "a" 
pointer and the symbols, big "A" pointer, 
and little "a" pointer have been re- 
moved . 

Synonyms: Two or more symbols that result 
in the same address when they are hashed 
by a hashing routine. 

System Macro Instructions : Macro instruc- 
tions that correspond to macro defini- 
tions prepared by IBM. 

Test Translator (AUTOTEST) : A facility 

that allows various debugging procedures 
co be specified in assembler language 
programs. 

Utility Data Set: A data set reserved for 
intermediate results. 

Variable Symbol: A type of symbol that is 
assigned different values by either the 
programmer or the assembler, thus allow- 
ing different values to be assigned to 
one symbol. There are three types of 
variable symbols: symbolic parameters, 
system variable symbols, and SET symbols. 
Variable symbols consist of an ampersand 
followed by an ordinary 1-7 character 
symbol . 

Work Bucket: Fields attached to certain 
types of records for holding internal 
information during processing. 
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41 
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"a" pointer 14, 82 
"A" pointer 14, 82 
Abort Phase (ABT) 
Assembler 

control table 

data sets 1 

internal code 

options 81 

physical organization 

program and I/O flow 3 

purpose 1 

system and I/O requirements 
Assembler Operation Processor 
Assembly Phases Record Formats 
Autotest Routine 24 



7, 100 



1 
34 
91 



Chaining 105 

Code, Internal Assembler 108 
Conditional Assembly 18, 111 
Control Program Services 99 
Cross Reference Dictionary 22, 28, 39 
97 

DC/DS Evaluation Routine (F7) 24 
DC Evaluation Routine (F8) 37 
Dictionary Construction 105 
Dictionaries 8, 82, 105 

Edited Text Records 10, 13, 85, 91, 111 

Error Logging Routine 26 

Error Records 11, 13, 86, 91 

ESD Processor 24 

Expression Evaluation Routine (F7) 25 

Expression Evaluation Routine (F8) 38 



External Symbol Dictionary 
30, 96 

FCOM 6, 101 

FD 40 

FI 7, 30, 101 

FIN 6, 101 

Final Assembly 32 



22, 24, 28, 



Floating & Fixed Point Conversion Routine 


38 




FPP 


7, 39, 101 


F0 


6, 101 


Fl 


6, 12, 101 


F2 


6, 13, 101 


F3 


6, 17, 101 


F3E 


6, 17, 101 


F7 


6, 22, 101 


F7C 


23, 101 


F7D 


24, 101 


F7E 


24, 101 


F7G 


26, 101 


F7L 


26, 101 


F7N 


24, 101 


F7S 


24, 101 



F7V 


25, 


101 


F7X 


23, 


101 


F8 


7, 32, 101 


F8A 


34, 


101 


F8C 


33, 


101 


F8D 


37, 


101 


F8I 


32, 


101 


F8L 


38, 


101 


F8M 


34 




F8N 


38, 


101 


F8P 


37, 


101 


F8S 


38, 


101 


F8V 


38, 


101 


GET 


Statement (F7) 


Global Dictionary 



23 
13, 17, 82, 111, 113 



Hash Table 105 



Initial Assembly 22 
Initialization 12 
Initialization & I/O Routine (F7) 
Initialization & I/O Routine (F8) 



Inner Macro Instructions 
Interlude 30 
Intermediate Text Records 



18, 90, 
10, 82 



27 

32 
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13 
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17 
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22 
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30 
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32 
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Linkage Conventions 7, 8 

Linkage Edit Map 101 
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